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Foreword 


Systems engineering efforts initiated by NASA's Lewis Research 
Center (LeRC) in FY92 under RTOP 593-72. for Nuclear Electric 
Propulsion (NEP) , have enabled the development of detailed 
mathematical (computer) models to predict NEP subsystem performance 
and mass. The computer models are intended to help provide greater 
depth to NEP subsystem (and system) modeling, required for more 
accurately verifying performance projections and assessing the 
impact of specific technology developments. 

The following subsystem models have been developed: 

1) liquid-metal-cooled pin-type, and 

2) gas-cooled NERVA (Nuclear Engine for Rocket Vehicle 
Applications) - derived for reactor/shield ; 

3) Potassium-Rankine, and 

4) Brayton for power conversion; 

5) heat rejection general model (includes direct Brayton, 
pumped loop Brayton, and shear flow condenser (Potassium- 

Rankine) ; . , 

6) power management and distribution (PMAD) general model; and 

7) ion electric engine, and 

8) magnetoplasmadynamic thruster for the electric propulsion 
subsystem. 

These subsystem models for NEP were authored by the Oak Ridge 
National Laboratory (ORNL) for the reactor (NASA CR-191133) , by the 
Rocketdyne Division of Rockwell International for the Potassium 
Rankine (NASA CR-191134) and Brayton (NASA CR-191135) power 
conversion, heat rejection (NASA CR-191132) , and power management 
and distribution (NASA CR-191136) , and by Sverdrup Technology for 
thr thrusters (NASA CR-191137) . 

At the time of this writing, these eight VAX/FORTRAN source and 
executable codes are resident on one of LeRC's Scientific VAX 
computers . 


vi 


SUMMARY 


NASA LeRC is currently developing a FORTRAN based computer model 
of a complete nuclear electric propulsion (NEP) vehicle that can be 
used for piloted and cargo missions to the Moon or Mars. Proposed 
designs feature either a Brayton or a K-Rankine power conversion 
cycle to drive a turbine coupled with rotary alternators. Both ion 
and MPD thrusters will be considered in the model. In support of 
the NEP model, Rocketdyne is developing power conversion, heat 
rejection, and power management and distribution (PMAD) 
subroutines. The subroutines will be incorporated into the NEP 
vehicle model which will be written by NASA LeRC. The purpose of 
this report is to document the heat pipe cooled heat rejection 
subsystem model and its supporting subroutines. 

The heat pipe cooled heat rejection subsystem model is designed 
to provide estimates of the mass and performance of the equipment 
used to reject heat from Brayton and Rankine cycle power conversion 
systems. The subroutine models the ductwork and heat pipe cooled 
manifold for a gas cooled Brayton; the heat sink heat exchanger, 
liquid loop piping, expansion compensator, pump and manifold for a 
liquid loop cooled Brayton; and a shear flow condenser for a K- 
Rankine system. In each case, the final heat rejection is made by 
way of a heat pipe radiator. The radiator is sized to reject the 
amount of heat necessary. 

The calculations proceed from first principles and normally will 
require that a relatively extensive amount of information be made 
available to the code. For normal use, a complete description of 
the component geometry must be specified. However, for preliminary 
design purposes, the code provides an option that will generate a 
workable design for the heat rejection system that can be used as 
the basis for further optimization. 

The code computes the performance of each equipment item in the 
flow path. Performance for specific elements such as the heat 
exchanger, piping and manifolds is usually expressed as a pressure 
and a temperature drop. The pressure drops are summed to size the 
pumps, while the temperature drops are used to determine the mean 
effective temperature of the radiator which is then sized to reject 
the amount of heat required to operate the cycle at the specified 
conditions. Code output is in the form of labeled variable values 
and the output for each option includes a detailed mass summary of 
the equipment items in the selected flow path. 

A detailed discussion of the derivation of the algoritlms 
incorporated in the various subroutines used forms the major 
portion of the report. The model documentation includes as an 
appendix a detailed users manual which provides definition of the 
input variables required, subroutine usage instructions, and 
applications examples to illustrate the output resulting from 
invoking the different code options. 




1 . 0 INTRODUCTION 


The objective of this task was to characterize potential heat 
pipe based radiator subsystems for use in megawatt sized nuclear 
electrical propulsion systems. The approach to developing this 
characterization was to develop a mass/performance estimating 
computational methodology that proceeds from first principles to 
provide valid estimates of the performance and mass of candidate 
heat pipe based radiators and the auxiliary devices required to use 
them in both Brayton and Rankine system designs. Heat rejection 
subsystem characteristics of interest are radiator size (area, 
length, width, heat pipe lengths, heat exchanger dimensions) and 
mass. It was required that these characteristics be developed for 
both a potassium Rankine cycle with a constant temperature 
condensation process, as well as for a Brayton cycle with a varying 
temperature cooling process. Input variables to be considered in 
the characterization include temperature, working fluids, cycle 
type, radiator geometry and materials of construction. 

It was deemed desirable to provide as many default values for 
variables as possible, in order to minimize the amount of effort 
required to use the program. This desire conflicts with the 
necessity of developing algorithms with sufficient detail to permit 
rational optimization when the code is used as part of an overall 
systems model . A compromise solution was developed in the . form of 
an option to the basic code that determines a radiator design on a 
relatively simplified and non-optimized basis. The inputs 
developed as a result of running the optional portion of the code 
are intended to provide sufficient detail to the user who can then 
construct an operating model of the system which can then be 
optimized by manipulation of this more complete data set. 

This report provides documentation of the methodology used in 
developing the heat rejection subsystem analysis subroutine and 
includes a discussion of the technical approach developed, the 
design of the main driver program, and the design and integration 
of the various equipment algorithms and supporting routines used. 
A users manual for the code and a complete FORTRAN, source code 
listing are presented as Appendices. Users familiar with the 
analysis of space based heat rejection systems should be able to 
use the code with only the information given in the users manual, 
Appendix A. 
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2 . 0 TECHNICAL APPROACH 


2 . 1 Requirements 

The heat rejection subsystem will be required to operate over a 
wide range of temperatures and pressures, and with a variety of 
working fluids. The ranges of these parameters are shown in 
Table 1. These requirements are met primarily by supplying 
materials properties for materials used at the pressures and 
temperatures of interest. For the heat pipes, sufficient options 
are provided to cover an even larger range than required. 


TABLE l 

HEAT REJECTION SUBSYSTEM 
GROUND RULES AND REQUIREMENTS 


Input parameter ranges of interest: 

Power Conversion System Outlet Temperatures (k) : 
K-Rankine: 750 - 1250 

Brayton: 300 - 1000 

Power Conversion Working Fluids: 

K-Rankine 

Helium 

Helium-Xenon Mixtures 
Power Levels: 100-50000 KWt 

Lifetime: 2-10 Years 


Code options that provide for automated selection of heat pipe 
working fluids and containment materials will use the Values in 
Table 2. The user, however, can specify any of the working fluids 
in Table 2 at any time. The code will run with the selected fluid 
if its use at the specified temperature is possible. Inappropriate 
selections will cause the code to stop with the appropriate heat 
pipe related error message. 


TABLE 2 

HEAT PIPE WORKING FLUID TEMPERATURE RANGES 
AND CONTAINMENT MATERIALS RECOMMENDED 


TEMPERATURE RANGE (K) 

FLUID U8BD 1 

CONTAINER MATERIAL 

250 - 305 

AMMONIA 

ALUMINUM 

305 - 560 

WATER 

MONEL (COPPER) 

560 - 750 

MERCURY 

347 STAINLESS 

750 - 950 

POTASSIUM 

NIOBIUM 

950 - 1150 

SODIUM 

NIOBIUM 

1150 - 1800 

LITHIUM 

MOLYBDENUM 
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2.2 Subsystem Definitions 

The code developed for the characterization of potential heat 
pipe cooled heat rejection subsystems is designed to be applicable 
to both the Brayton and Rankine cycle power r conversion systems. 
Bravton systems have been proposed that feature both direct hea 
extraction from the cycle working fluid and heat extraction by use 
of a gas/liquid heat exchanger and a liquid loop as shown on the 
flow diagrams given as Figures 1 and 2 . The direct heat extraction 
cycle uses a gas to heat pipe cooled heat exchanger/manifold to 
extract the heat directly from the cycle working fluid. In most 
cases the heat exchanger for this application will be finned on the 
gas side. In those cases in which a liquid loop is used, a fluid 
loop is placed between the cycle working fluid and the radiator, 
primarily to permit the transfer of heat without the use of 
extensive, high mass ducting. The radiator manifold/heat pipe heat 
exchanger will usually be unfinned in the liquid loop cooled 
systems. In general, the larger sized systems will favor the use 
of an intermediate loop in the heat rejection system. The Flow 
diagram for the Rankine cycle systems is shown in Figure 3. The 
Rankine cycle makes use of a shear-flow condenser because other 
types are not considered practical for use in the absence of a 
gravity field. 


2.3 Overall Code Design 


Figure 4 presents an overall logic flow diagram for the Brayton 
and Rankine cycle heat rejection subsystems. Figure 4 illustrates 
the steps required to estimate the performance and mass of a 
subsystem for rejecting heat to space. The steps required to 
accomplish this objective are: 


1. Select the method of heat rejection to be used for the 
system. Three options will be available. The options are 
described above and illustrated in Figures 1, 2 and 3. 

2. Compute the performance of the gas/liquid heat exchanger if 

^ 3. Compute the performance of the liquid loop system, if one 

is used • * 

4 Size or select the pump if one is used. The code will only 

provide for the use of a liquid metal (NaK) loop for secondary 
cooling. For liquid metals, an EM pump is most often specified. 
The mass and performance of the pump will generally be estimated 
from semi-empirical curves generated for other purposes. 

4 . Compute the performance of the heat exchanger/manifold or 

condenser as needed. 

5. Size the heat pipe radiator. 


Several of the equipment size performance estimating subroutines 
are supported by other subroutines which describe the operating 
environment or describe the thermal property variations with 
temperature or pressure. The interactions of these routines are 
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FIGURE 4: OVERALL CODE LOGIC DIAGRAM 








shown on Figure 4. In the case of the main radiator subroutine, 
other subroutines are used to supply armor thickness calculations 
and heat pipe performance calculations as well as environment and 
thermal property estimates. 

The overall approach to computing heat rejection system 
performance is to estimate the performance of each equipment 
element in the string and then design a radiator to be compatible 
with the specified equipment string and the heat rejection 
requirements for the power conversion system. Each equipment 
element results in a temperature loss which is reflected in the 
mean operating temperature of the radiator. In addition to a 
temperature drop, the mass of the subsystem and the performance of 
the power conversion system is affected by the pressure drop of 
each of the equipment elements. The pressure drop of each element 
is also computed and is available for use in the system code as 
well as for pump sizing purposes. 

The mass and performance of each equipment element is estimated 
from first principles using well established thermo-hydraulic 
analysis methods. The analytical methods generally require that 
a relatively complete geometrical description of the component be 
supplied as input. Since such inputs are dependent on having a 
defined design concept available, it is seen as desirable to have 
an option in the code where a workable set of design parameters can 
be generated with only state point and system type inputs required. 
This option is supplied with the code and it consists of design 
rules based on previous experience. The option will not generally 
supply an optimized (namely, area constrained minimum mass) 
subsystem. However, the data from the option can be used in the 
primary section of the code to develop optimized configurations for 
the heat rejection subsystems of Brayton and Rankine power 
conversion subsystems. 
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3.0 EQUIPMENT SUBROUTINE /ALGORITHM DEVELOPMENT 

3.1 Main Driver Routine (HREJEC) 

This subroutine, HREJEC, is the main driver routine which is used 
to organize the problem, read in the required data inputs, call the 
appropriate subroutines and print out the results. The logic of 
HREJEC is reflected in the flow diagram given as Figure 4. The 
following steps are followed in estimating the mass and performance 
of heat pipe cooled heat rejection systems in either Brayton or 
Rankine power conversion systems: 

1. Select the heat rejection equipment train and define the 
equipment elements required. Three options are supplied and the 
flag, Iprob, is used to select the appropriate option, as: 

a) Direct cooled gas manifold for Braytons. 

b) Liquid loop (NaK only) cooled heat exchanger loop for 

Braytons . 

c) Shear flow condenser (Potassium only) directly cooled 
by heat pipes for Rankine cycles. 

2. Analyze the Hydraulic loop for the pressure drops required 
by the heat sink heat exchanger, the liquid loop piping and the 
heat pipe cooled manifold, if a liquid loop is used. 

3. Determine the weight of the pump required. 

4 . Determine the temperature drop associated with the heat 
pipe cooled liquid or gas manifold or shear flow condenser. 

5. Size a heat pipe radiator to accommodate the temperature 
drops seen in the loop equipment train and to accommodate the 
system heat rejection loads. 

6. Printout component sizes and masses. 

An option selected by the flag, Iselec, can be activated to 
supply most of the variables needed to run a case is included. A 
detailed listing of the variables required by the various options 
is included in Appendix A, the users manual. 


3.2 Heat Sink Heat Exchanger 

The heat sink heat exchanger in a Brayton system is required to 
transfer heat from the gas working fluid to a liquid metal coolant 
loop. It has been demonstrated by numerous prior studies that the 
most mass efficient of the conventional heat exchanger designs that 
could be used for this purpose is the shell and tube configuration. 
A schematic of a typical shell and tube layout is shown in 
Figure 5. In its usual embodiment, the gas stream is confined to 
the shell side, while the liquid metal is confined to the tube side 

9. 
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of the heat exchanger. Since the gas and liquid streams in the 
Brayton application are at relatively low pressures, the use of 
relatively thin shells and tube materials is possible. 

The heat sink heat exchanger size estimating subroutine is based 
on a computation of the overall heat transfer coefficient developed 
in a shell and tube heat exchanger with gas on the shell side of 
the exchanger and liquid on the tube side. The details of the 
computation roughly follow the development due to Bell [1]. Most 
of the construction details are assumed to be optimum with this 
method and the distance between tube rows in the direction 
perpendicular to the flow is assumed to be equal to the tube 
pitch. Several correlations are available for the heat transfer 
and friction factor coefficients on the shell side. The ranges of 
these correlations is shown on Figure 6. The correlation due to 
Bell was selected for use in the heat rejection subsystem design 
and analysis code since it is relatively conservative and nearly 
identical to the proprietary HTRI correlation. The tube side heat 
transfer correlation used is due to Lyon as quoted by Kreith [2]. 
This is the generally accepted correlation for the heat transfer to 
liquid metals under conditions of uniform heat flux. The Lyon 
correlation is represented by equation 1, below. 

N u =l . 0+0 . 025* (Re d *P z ) 0-8 


( 1 ) 

where : 


N u = Nusselt Number 

r^ = Reynolds Number based on diameter 


P r = Prandtl Number 


The friction factor for the turbulent flow of liquids or gases in 
tubes is given by an equation due to Miller [3]. This relation, as 
given by equation 2, gives a reasonably good representation of the 
Moody diagram and has the advantage of being an. explicit 
expression, thereby not requiring an iterative calculation. 


f=- 


0.25 


[LOG 10 ( 


3.7 *d 


p0 .9 
X-eD 


( 2 ) 

where : 

e = Mean Surface roughness height 
d = Tube Diameter 
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Figure 6: SHELL-SIDE HEAT TRANSFER COEFFICIENT CORRELATION COMPARISON 









The calculation proceeds by guessing an overall heat transfer 
coefficient, sizing the exchanger and then checking if the guess 
was correct. If the resulting exchanger is larger than required, 
the code reduces the overall diameter and repeats the calculation 
until a reasonably close approximation to the required exchanger 
duty is found. Conversely, if the resulting exchanger is smaller 
than required, the code increases the overall diameter and repeats 
the calculation, as above. Once the proper overall size is 
determined, the code proceeds to compute the mass of the component 
parts of the heat exchanger. Shell thickness is derived from an 
empirical representation of the results of prior calculations. 
Masses are computed by simple density times part volume relations. 
The components included are the insulation, heat exchanger heads, 
shell, plates, tubesheets, and tubes. The supporting structure for 
the heat exchanger is estimated as five percent of the overall mass 
of the heat exchanger unit. It is to be noted that the material 
thicknesses used for the design of these heat exchangers are near 
the absolute minimum possible and are representative of heat 
exchangers operated under very precisely defined conditions, 
manufactured using state of the art techniques and fully utilizing 
the latest in materials advances. As a result they will be very 
expensive to fabricate and develop. A more economical unit on the 
other hand will have significantly higher mass. 


3 . 3 NaK Piping 

The heat absorbed by the heat rejection heat exchanger is 
transferred to a heat pipe cooled manifold by a piping system. The 
piping system affects system mass by providing resistance to the 
pump, requiring a volume of metal to provide fluid containment and 
finally by requiring an inventory of fluid with which to transfer 
the heat and incidentally keep the piping system filled. Aerospace 
liquid metal loop systems are usually designed not to exceed a 
certain maximum flow velocity. This velocity is usually less than 
about 10 to 12 meters/ second. In order to minimize erosion 

problems with velocities of this magnitude, it is necessary to have 
an extremely low oxygen content in the flowing fluid. A usually 
satisfactory value for pipe wall thickness is given by assuming 
schedule 10 pipe. The use of thinner sections should be carefully 
evaluated . 

The pressure drop in the NaK piping system is estimated from 
input values of flowrate, pipe diameter, pipe length and number of 
90 degree bends in the system. Pipe bend resistances are estimate 
bv use of an empirical equation derived from a cross plot of bend 
resistance data published by Miller [3]. Pipe friction factors are 
estimated by means of equation 2. Masses are computed by simple 
density times part volume relations. The elements included m the 
mass estimate are the pipe insulation, pipe material and the volume 
of NaK contained in the piping. 
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3.4 EM Pump 

NaK circulation in the liquid metal heat transfer loop is 
provided for by an electromagnetic (EM) pump. A sketch of a 
typical NaK loop based heat rejection plumbing layout showing the 
integration of EM pump, the volume accumulator and the radiator 
inlets and outlets is shown in Figure 7. Rocketdyiie has performed 
detailed EM pump design and configuration selection studies over 
the past several years. The results of these studies can be 
roughly correlated by an expression for pump mass as a function of 
hydraulic pumping power required to operate a NaK loop. This 
expression is given as: 

*w=16 .783+0.1465 *P byd 


(3) 

where : 

Mp^ = Pump and Power Control Mass (Kg) 

P hyd = Hydraulic Power Required to Operate Loop (Watts) 

Equation 3 is based on several designs for DC conduction EM pumps 
which featured a two throat configuration. One of the throats is 
plumbed to the cold leg of the loop, while the other is plumbed to 
the hot leg. A detailed analysis of the performance and mass of EM 
pumps is given by Baker and Tessier [4]. 


3 . 5 Expansion Compensator 


The expansion compensator or volume accumulator unit (VAU) 
provides for NaK expansion during system startup and provides for 
overpressure on the NaK to prevent the initiation of local boiling. 
The VAU is usually located on the radiator manifold outlet line 
(the lowest temperature point in the system) and is connected to 
the main branch line by smaller diameter tubing. The design of 
VAU ' s is based on the amount of NaK volume change expected in the 
heat transfer loop between a nominal 311 K temperature level and 
the maximum operating temperature of the loop. A safety factor of 
1.2 is customarily applied to the estimate of NaK volume change. 
Rocketdyne has conducted several design and selection studies of 
VAU's for other programs. Details of a typical VAU design are 
given in Figure 8. The mass of material used in these designs is 
well correlated by the following equation: 


(O.66*log 10 (— -^7 
M„ =0.4536 *[10.0 °* 0164 


- 0 . 28 ) 


] 


( 4 ) 
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where : 


V = Loop volume change (Liters) 

M^” = Mass of volume accumulator unit (dry) (Kg) 

A detailed computer code for the analysis of the performance and 
mass of VAU units of the type illustrated in Figure 8 is given by 
Whitaker and Shimazaki [5]. 


3.6 Gas/Liquid Heat Pipe Manifold 

Heat is transferred to the heat pipe/fin assemblies by means of 
a heat pipe cooled manifold. The basic configuration of the 
manifold is a single line of tubes contained in a shroud. Braze 
cans are used to provide for the attachment of the heat pipe fin 
assemblies into the shroud. It is assumed that the flow pattern in 
the manifold can be tailored to simulate the flow in a heat 
exchanger tube bundle. Tailoring the flow in this manner will 
require that an undulating wall shape be used to contain the flow. 
A close approximation to the required shape of this wall can be 
determined with CFD methods. A diagram of the manifold layout is 
given in Figure 9. 

The heat transfer and friction factor correlation used for the 
manifold is given as Figure 10. This correlation is adapted from 
the correlation given by Bell [1] for the case where a large number 
of tube rows is used. Heat transfer through the walls of the 
manifold is by conduction through a braze can, a braze joint, the 
heat pipe wall to the evaporating fluid of the heat pipe. An 
option is provided for the use of fins around the braze cans. This 
may be useful in cases where gas is used in the manifold. The fins 
are assumed to span the entire manifold since the use of unfinned 
areas would result in bypassing of the flow which is not accounted 
for in this code. 

The heat balance across the wall of a can/ braze joint/ heat pipe 
assembly is solved to give the film temperature drop through the 
manifold. A closed form expression was derived to estimate this 
parameter. The heat flux used for the estimation of average film 
temperature drop was the average heat flux value. In practice, the 
film temperature drop will be highest at the manifold inlet and 
decreasing toward the manifold outlet. The average value, however, 
will give the average film temperature drop which is used to 
estimate the average radiator operating temperature. 

Manifold mass is computed by simple density times part volume 
relations. The elements included in the mass estimate are the 
manifold braze can mass, manifold container wall mass, manifold 
braze mass, and for liquid cooled manifolds, the mass of the NaK 
inventory in the manifold. It is expected that it will usually be 
desirable to leave the manifold uninsulated. Armor mass for the 
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manifold is not included in the above calculation since the 
manifold is assumed to be shielded from its environment by other 
components on the spacecraft. 


3.7 Shear Flow Condenser/Manifold 

The K-Rankine cycle requires a condenser to directly reject waste 
heat from the cycle. A shear flow device has been identified as 
being the most likely candidate for this application since its 
operation does not require the presence of a gravity field. A flow 
schematic for a heat pipe cooled shear flow condenser is given in 
Figure 11. 

The approach to analyzing the performance of the shear flow 
condenser is similar to the one used for the convectively cooled 
manifolds. The code first estimates the proportion of the manifold 
that is required for subcooling and the portion required for 
condensing the wet or saturated inlet flow. The manifold routine 
cannot accommodate superheated flow, due to the fact that either 
large surface areas or flow dilution must be used to provide 
desuperheating. A separate piece of equipment is usually used in 
commercial or utility practice. The code then computes an average 
film temperature drop for condensing and for subcooling in a manner 
similar to that used for the convective manifolds. An average 
value for film temperature drop is then found by averaging the 
above values weighted by the number of heat pipes involved in each 
process. Condenser pressure drop is computed for the condensing 
region and for the subcooling region and then added. 

The model used to estimate shear flow condensation is based on 
computing the condensation of pure vapors inside horizontal tubes. 
At high Reynolds numbers, the heat transfer rate is controlled by 
the vapor flow heat transfer coefficient to the continuously 
forming film on the duct wall. The thickness of this film 
increases with flow manifold length. Gas phase heat transfer 
coefficients are estimated by the use of common empirical 
relations. The model is assumed to be valid provided that the flow 
is in the shear flow regime. A test is provided in the 
calculations to determine if the flow is in the shear flow regime, 
however, the code only issues a warning that the manifold is 
operating in an invalid flow regime. If such an event occurs, the 
results of the condensing manifold performance estimating routine 
is invalid and the user must make a change to the design. This 
change will usually consist of increasing the local vapor flow 
velocity in the manifold. 

Manifold mass is computed by simple density times part volume 
relations. The elements included in the mass estimate are the 
manifold wall mass, manifold to heat-pipe braze mass, the mass of 
any manifold insulation, and the mass of the NaK inventory in the 
subcooler portion of the manifold. Armor mass for the manifold 
is not included in the above calculation since the manifold is 
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assumed to be shielded from its environment by other components on 
the spacecraft. 


3.8 Gas Ducting 

Cycle reject heat can be transferred to a heat pipe cooled gas 
manifold by a gas ducting system. The gas ducting system affects 
system mass by providing resistance to the Bray ton compressor and 
by requiring a volume of metal to provide fluid containment. 
Aerospace gas ducting systems are usually designed not to exceed a 
certain maximum flow velocity. This velocity, is usually less than 
about 30 to 40 meters/second in order to avoid excessive pressure 
drop. A usually satisfactory value for pipe wall thickness is 
given by assuming the duct will be fabricated from 1/16" sheet 
steel. The use of thinner sections should be carefully evaluated. 

The pressure drop in the gas ducting system is estimated from 
input values of flowrate, pipe diameter, pipe length and number of 
90 degree bends in the system. Pipe bend resistances are estimated 
by use of an empirical equation derived from a cross plot of bend 
resistance data published by Miller [3]. Pipe friction factors are 
estimated by means of equation 2. Masses are computed by simple 
density times part volume relations. The elements included in the 
mass estimate are the duct insulation and duct material. 

3.9 Heat Pipe Radiator 

Cycle waste heat is ultimately rejected by the heat pipe/fin 
radiator surface. The code determines the size of the heat pipe 
and fin assembly necessary to reject the specified amount of cycle 
waste heat. The heat pipe radiator subroutine is based on a 
detailed calculation of the amount of heat that can be radiated 
from the condenser section of a finned heat pipe. The code can be 
adapted to use any heat pipe working fluid for which the 
appropriate fluid physical properties are available. The 
calculations in the subroutine start with an initial estimate of 
the length of heat pipe required. The heat pipe length is 
sectioned into a prespecified number of segments which are treated 
as isothermal . The amount of heat radiated from a particular 
segment is computed and compared to the various heat pipe 
performance limits that apply at the particular length step. The 
saturation temperature is then adjusted and the heat rejection from 
the next step is computed. The overall length of heat pipe is 
adjusted to radiate the correct amount of heat by iterating on the 
amount of heat rejected. The subroutine uses the calculations for 
a single heat pipe to scale the results for the entire radiator. 
The evaporator inlet temperature for this single heat pipe is taken 
as the fourth power average temperature of the radiator. 

The effect of temperature variation in the spanwise direction 
along the radiator surface is evaluated using the numerical results 
of Lieblein [6] for radiating fins of constant cross section. The 
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radiating efficiency presented by Lieblein was empirically 
represented by a relationship developed by Nervenga and 
Zarotti [7]. This expression yields an estimate of the fin 
efficiency directly, without iterations or table lookups, saving 
considerable computer run time. 

The radiator is generally assumed to be radiating from both sides 
as in a flat plate configuration. However, cylindrical and conical 
geometries are available as options. 

The use of heat pipes to dissipate waste heat from the cycle 
offers an opportunity to use redundant heat pipes to offset 
radiator armor. Using this approach, the code uses the binomial 
equation to estimate the required heat pipe reliability as a 
function of system reliability and redundancy. The value of heat 
pipe reliability is then used in the expression developed by Haller 
and Lieblein [8] to estimate the armor or heat pipe wall thickness 
required to provide sufficient meteorite protection to meet the 
heat pipe reliability requirement. 

Masses are computed by simple density times part volume 
relations. The elements included in the mass estimate are the heat 
pipe container tube, the heat pipe wick, the heat pipe working 
fluid, the fins, the armor and an allowance for radiator structural 
support. This allowance is taken as 10 % of the mass of the 
radiator components. 
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4,0 SUPPORTING SUBROUTINE /ALGORITHM DEVELOPMENT 


4 . 1 Orbit/Environment 

Subroutine HRENVR computes the values of the meteorite or debris 
flux constants and the solar flux constant for use in the armor 
sizing subroutine and the heat sink temperature estimating 
subroutine. The meteorite and debris information is based on the 
1990 Kessler model. The solar constant is scaled from 1.0 AU by 
the inverse ratio of the AU's from the sun, squared. 

Kessler gives the meteorite flux model for space not influenced 
by the earth's gravitational field as: 

jj - r 1-0 + 1 - 3 * 10 : 9 

c (2200*/n o,3O6 +15 . 0) 4,38 (J7?+ (lO 11 *^ 2,0 ) + (10 27 */n 40 ) ) 


1 . 3 * 10~ 16 

l m+ ( 10 +6 *w 2 ' 0 ) ) 0,85 


] *( 


1.0 

- 1.5 


... (5) 

where : 

N t = Number of particles of mass, m, or greater per square 
meter per second. 

m = Particle mass in grams. 

R = Distance from sun (AU's) 

sun 

The orbits that are influenced by the earth's gravitational field 
are taken to be those between LEO and GEO. For these orbits, the 
earth focusing factor and the earth shielding factor are applied 
as: 


ShieldingFactor=0 .5* 


(1.0+cos [arcsin( 


R. 

R a + H 


)]) 


and 


Focus ingFact or = 1 . 0 + 


and for the region influenced by the gravitational attraction of 
the earth: 

N, 

fj = £ 

c 0.565 
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whcrG • 

R = Earth Radius + 100 KM atmosphere (6478 KM) 

H* = Height above Earth's atmosphere (Orbit altitude - 100 KM) 
r ■ Orbit Radius (from earth center) = Orbit Altitude + 

6378 KM. 

The debris flux model is given by Kessler as: 

N t = 3 . 168896 *10“ 8 * (F 1 *g 1 +F 2 *g 2 ) ] 


... ( 6 ) 

where : 

gr x = (1 . 0+qr) t_1988 


q = 0.02, if q < 2011. 
t = Year Vehicle Launched 

or: 

g x = ( 1 +qr) 23 * ( 1 +g / ) t-2011 
q = q' = 0.04, if q > 2011. 

and: 

gr 2 =l . 0+ (p* ( fc-1988) ) 


where : , 

p = Assumed annual growth rate of mass in orbit 

Also: 

„ 1 . 22 * 10" 5 
F ' cp. s - 


and: 


p - 8 ■ 1*1Q 10 
2 ~ ( d+7 0 0 ) 6 


where : 


d= ( 


6 . 0*m 
(2 . 8 ) 


0.3623 

, jn>0 . 3076 gram 


or: 
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d= ( 


6.0 *m 

4.7*n 


0.3333 

,m< 0 . 307 6 gram 


and: 


4 ^= 10. 0 


H 

200 


s 

140 


1 . 5 ) 


where : 

S = 87.2 

and: 


<t>= 


4>i 

(♦x+l) 


and: 


,XP( -(legioW- O^ ) 

i/=[10.0 °- 637j ] 0,5 


and for: 28.5 < i < 80.0 degrees 

l|r=-0 .313471+ (0.084327 *i) - (0 . 00186 *i 2 ) + (0 . 000014 *i 3 ) 


where : 

i = Orbit inclination in degrees. 

The meteorite flux constants for use in the armor requirements 
equation evaluated in subroutine ARMOR are estimated from the 
meteorite model and from the debris model for orbits from LEO to 
GEO. The larger of the two values is used. For orbits beyond GEO, 
debris is not usually found, therefore only the meteorite flux is 
considered. 

The solar flux is scaled as a function of distance from the sun 
in AU, as: 

£> sun =135 3 . 0 * ( ) 2 ; wa t tsf meter 2 


This flux is used in the HTSINK routine to estimate the effective 
sink temperature seen by the radiator. 
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4 . 2 Thermal Properties 

The code makes extensive use of thermal properties in its many 
subroutines. The majority of the properties required to run the 
code are built in as curve-fit subroutines. There are several 
places in the code where the same thermal properties are used under 
different n am es and come from different subroutines. These cases 
developed from the fact that several existing subroutines/ 
algorithms were used to describe some of the components in the 
system. The routines often used different systems of units and had 
their own property generating subroutines. These were preserved in 
order to take advantage of the calibration and development that the 
routines had at the time of their application. Making all of the 
subroutines in the code use the same property subroutines will be 
an area of ongoing code development. 


4.3 Armor Thickness Estimates 

Subroutine HRAFMR computes the amount of armor required in order 
to provide a specific non— puncture probability in the. specified 
orbit for the specified mission duration. Armor thickness is 
computed from a semi-empirical relationship developed by Haller and 
Leiblien [81. The equation developed requires that specific 
functions of the armor material be input and that specific 
meteorite and orbital debris parameters be specified. The orbital 
parameters are computed in subroutine HRENVR, described above and 
the materials dependent parameters are given in Table 3. The 
empirical relationship used is: 



EaA^ 

-ln(P a ) 


]1/3P[ 


2 

2 ($+2 


] 1/3P [_Z1] 1/6 


... (7) 


wh6r6 • 

v = Room temperature cratering coefficient (from Table 3) 

a r = Rear surface damage thickness factor (from Table) . 

p = Impacting particle specific gravity (values are built m 
to the P subroutine) 

p = Armor specific gravity - (Grams/ cu-Cm) 

V* = Impacting particle velocity (values are built in to 
subroutine) 

C = Armor sonic velocity 

a! = Target area 

t = Exposure time (mission duration) 

p = Probability of non-puncture (ie; for example 0.9, 0.99, 
0.999)° 

T = Average armor temperature 

S = Armor thickness (units depend on other units used) 
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TABLE 3 

CRATERING COEFFICIENT VALUES AND DAMAGE THICKNESS FACTORS FOR 
SELECTED MATERIALS 


TARGET MATERIAL 


CRATERING COEFFICIENT V , 


356 - T51 Aluminum 

2.15 

7075 - T6 Aluminum 

2.00 

2024 - T6 Aluminum 

1.70 

Nb + 1% Zr 

1.81 

316 - Stainless Steel 

2.19 

A- 286 

1.77 

Inconel - 718 

1.85 

L - 605 

2.00 

Vanadium 

1.71 

Tantalum 

1.77 

TZM - Molybdenum 

2.00 

Carbon-Carbon 

1.70 


Damage Thickness Factors for Incipient Dimple, Spall and 

Perforation 


Material 

DimDle 

SDall 

Perforation 

2024 - T6 Aluminum 

2.5 

2.3 

1.7 

316 - Stainless Steel 

2.35 

1.9 

1.4 

A - 286 

2.80 

2.0 

1.65 

Nb + 1% Zr 

4.5 

4.0 

1.7 

Inconel - 718 

3.0 

2.5 

1.75 

Cobalt Alloy L-605 

2.5 

2.1 

1.7 

Titanium 

3.1 

2.6 

1.65 

Vanadium 

3.6 

2.5 

1.55 

TZM - Molybdenum 

3.25 

3.0 

1.85 

Carbon/ Carbon 

2.5 

2.3 

1.70 


Notes : 

1. For heat pipe radiator "perforation" is usual design 

approach . 

2. For pumped loop radiator "dimple" is preferred, but 
"spall" will usually be acceptable. 
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4.4 Sink Temperature Estimates 

Subroutine HRTSNK computes the maximum sink temperature 
experienced by a body in a given orbit. The sink temperature is a 
function of the solar constant, which is determined by subroutine 
HRENVR. In earth orbit, the energy reflected from the earth and 
the energy radiated by the earth are significant. Values of the 
earth reflected and earth emitted radiation are built into the code 
and used to determine the environmental flux constant for LEO to 
GEO orbits. 


4.5 Statistical Equation Solution Routines 

An appropriate relationship with which to estimate the 
reliability of a heat pipe as a function of system reliability and 
redundancy is the binomial equation, which can be stated as: 




K\ 


J * i ' ( K-H) ! (ff) I 


) (P) H (l-P) K - m 


P = Probability of failure of a single heat pipe 
K = N umb er of heat pipes in the radiator 
J = Number of additional redundant heat pipes 
U = Probability of system failure 

The binomial equation assumes that the probabilities of failure 
will be binomially distributed among the individual heat pipes. 
The values of U, K, and J are specified and the subroutine/ function 
PNEW iteratetively solves equation 8 to determine P, the 
probability of failure of an individual heat pipe which is then 
used in the armor thickness equation discussed above. 
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5.0 CONCLUSIONS /RECOMMENDATIONS 

It is believed that the heat pipe cooled heat rejection subsystem 
model presented will yield performance and mass results of adequate 
accuracy for system analysis purposes. The code will accommodate 
designs for which relatively complete dimensional and operating 
data are available or it will use a minimum input data set to 
generate a relatively complete, but not optimized design to use as 
the basis for optimization studies. 

Improvements in several areas of the model are suggested. The 
use of the various thermal properties routines should be made more 
consistent so as to eliminate redundant property generating 
routines; the code can be condensed considerably by eliminating 
many of the comments and output routines; and the code could 
probably be made to run considerably faster by the use of improved 
methods of obtaining numerical convergence. However, the 
implementation of these changes should be deferred until the code 
is used in a systems context, so that the actual need for some of 
the improvements can be better prioritized. A second area of 
interest may be to couple this code with one of the currently 
available general optimization codes to produce a relatively 
complete optimization for the minimum input data case. 
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APPENDIX A 

OPERATING INSTRUCTIONS FOR THE HREJEC CODE 


A-1 


The HREJEC subroutine is designed to estimate the performance and mass of heat rejection subsystwre used on 
spac e based nuclear power systems. The subroutine offers six options tfiich are selected by the use of the flags 
Iselec and Iprob. 

The selection logic is as follows: 


IF Iselec = 1. THEN THE CODE WILL SUPPLY MOST OF THE VARIABLE 
VALUES NEEDED. IF Iselec ■ 2, THEN THE USER MUST SUPPLY MOST 
OF THE VARIABLE VALUES NEEDED 


IF Iprob = 1, CODE IS SET UP FOR A DIRECT COOLED BRATTON 
CONFIGURATION. (Figure A-1) 

IF Iprob = 2, CODE IS SET UP FOR A LIQUID LOOP COOLED 
BRAYTON CONFIGURATION. (Figure A-2) 

IF Iprob = 3, CODE IS SET UP FOR A SHEAR FLOW CONDENSER IN A 
POTASSIUM RANKINE CYCLE. (Figure A-3) 

The subroutine HREJEC is entered by use of the following call statement in the main or driver program: 


CALL HREJEC( Iselec, Iprob, IENflg, Pin, Tin, Tout, Qrad) 

In addition to the flags Iselec and Iprob, a flag called IENflg is used to select the environment desired. 
IENflg is defined as follows: 

IENflg * FLAG TO SET ENVIRONMENT DESIRED 

* 1, EARTH ORBIT, LEO TO GEO USES GREATER OF DEBRIS 
OR METEORITE FLUX, NO DEBRIS ABOVE 2000 Km. 

= 2, BEYOND EARTH ORBIT, 0.25 TO 2.00 AU 

The other variables in the call statement are defined as follows: 


Pin = CYCLE WORKING FLUID INLET PRESSURE (Grams/sq-Cm) 
Tin = CYCLE WORKING FLUID INLET TEMPERATURE (K) 

Tout « CYCLE WORKING FLUID OUTLET TEMPERATURE (K) 
Qrad « CYCLE TOTAL HEAT REJECTION RATE REQUIRED (KWt) 


In addition to the CALL statement the main program must provide for the opening of a data file called RADAT. 
The contents of RADAT provide the balance of the data needed to run HREJEC. For the cases that will use the 
minimum amount of irput data to run HREJEC (Iselec = 1), the contents of RADAT are as follows: 


IENflg, Halt, H1NCL, Rsun 
Yrlnch, Time 
Pin, Tin, Xmw, Tout 
Qrad 


If desired, IENflg, Halt, HINCL, Rsun, 
in default values for these paraaieters. 
as: 


Yrlnch, and Time may be set equal to zero and the code will use built- 
If IENflg is not equal zero, then the required parameters are defined 


Halt * ORBIT ALTITUDE (km) 

HINCL = ORBIT INCLINATION ANGLE (28.5 TO 80.0 degress, ONLY) 
Rsun * DISTANCE FROM SUN (AU) 

Yrlnch « YEAR IN WHICH VEHICLE IS PLACED IN ORBIT 
Time = MISSION DURATION (Secs) 

Pin « CYCLE WORKING FLUID INLET PRESSURE (Grams/sq-Cm) 

Tin « CYCLE WORKING FLUID INLET TEMPERATURE (K) 

Xmw * MOLECULAR WEIGHT OF CYCLE WORKING FLUID 
Tout ■ CYCLE WORKING FLUID OUTLET TEMPERATURE (K) 

Qrad - CYCLE TOTAL HEAT REJECTION RATE REQUIRED (KWt) 
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For normal cases where a reasonable definition of the design is available, then the contents of RADAT will 
vary depending on the case being considered. If Iprob = 1, then the contents of RADAT are as follows: 

lENf lg,Halt,HINCL,Rsun 
Yrlnch.Time 

GAM, ARSF, Earm, PROS 

CONF I G, Xntubes , Xnexpi p, X l f l at 

Dhpipe, If luid, I mat l , Theta 

D2rad,Thickm, Thickf .Thick 

Em, Alpha, Hap, HArad 

Tkf in,Rhocoating,Rhof in.RHOarm 

Xladiab,Xmchmas 

If lg2,Hman, Gap, Pitch 
Dcan,Dhp,Rc,Rb 
Tf , TKf i na , TKcan, TKbraze 
TKhp, XNf , Xmw, RHOcan 
RHObraze , T H I CKman , Uman 

XN9,R9,Dp,SUMLEN 
THICKP,RHOPIP,THICKI .RHOINS 

The required parameters are defined as: 

ORBIT DESCRIPTION 

Halt * ORBIT ALTITUDE (km) 

HINCL * ORBIT INCLINATION ANGLE (28.5 TO 80.0 degress, ONLY) 

Rsun = DISTANCE FROM SUN (AU) 

Yrlnch = YEAR IN WHICH VEHICLE IS PLACED IN ORBIT 
Time = MISSION DURATION (Secs) 

RADIATOR DESCRIPTION 

GAM.ARSF = PENETRATION CONSTANTS - FUNCTIONS OF THE SPECIFIC MATERIAL (SEE Table 3) 

Earn) = YOUNGS MODULUS OF ARMOR Grams/ sq- Cm) 

PROB * NON-PUNCTURE PROBABILITY (0.9, 0.99, 0.999, ETC.) 

CONFIG = 1.0, THEN RADIATOR IS A FLAT PLATE, ELSE IS A CONE OR CYLINDER 
Xntubes « NUMBER OF PRIMARY HEAT PIPE IN RADIATOR 
Xnexpi p = NUMBER OF REDUNDENT HEAT PIPES 
Xlflat > HEAT PIPE EVAPORATOR LENGTH (Cm) 

Dhpipe x HEAT PIPE INSIDE DIAMETER (Cm) 

If luid = HEAT PIPE WORKING FLUID ID NUMBER (SEE Table 2 for recommendations) 

I mat l = MEAT PIPE LINER MATERIAL ID NUMBER (SEE Table 2 for recommendations) 

Theta x CONE ANGLE FOR CONICAL RADIATOR (DEGREES) 

D2rad * MANIFOLD DIAMETER FOR CONICAL RADIATOR OR MANIFOLD 
LENGTH DIVIOED BY 3.141593 FOR FLAT PLATE (Cm) 

Thickrn x RADIATOR EMISSIVITY CONTROL COATING THICKNESS (Cm) 

Thickf x RADIATOR FIN THICKNESS (Cm) 

Thick = HEAT PIPE WALL or LINER THICKNESS (Cm) 

Em x RADIATOR SURFACE EMISSIVITY 
Alpha = RADIATOR SURFACE ABSOPTIVITY 

Hap = RADIATOR PROJECTED AREA (TOWARD SUN) (FRACTION OF TOTAL) 

HArad = RADIATOR ACTUAL AREA (USUALLY x 1.0) 

Tkf in * THERMAL CONDUCTIVITY OF FIN MATERIAL (WattS/(Cm-K)) 

Rhocoating = COATING MATERIAL DENSITY (Grams/CC) 

Rhofin x FIN MATERIAL DENSITY (Grams/CC) 

RHOarm = ARMOR DENSITY (Grams/CC) 

Xladiab = LENGTH OF ADIABATIC PORTION OF THE HEAT PIPE (Cm) 

Xmchmas = MASS OF RADIATOR DEPLOYMENT MECHANISM (KG) 
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HEAT PIPE COOLED MANIFOLD DESCRIPTION 


If lg2 = FLAG TO SET MANIFOLD WORKING FLUID 

1 = He-Xe MIXTURE 

2 = NaK 

Hman * MANIFOLD HEIGHT (Cm) 

Gap = MANIFOLD WIDTH (Cm) 

Pitch « DISTANCE BETWEEN CAN (HEAT PIPES) CENTERLINES (Cm) 
Dean - OUTSIDE DIAMETER OF MANIFOLD BRAZE CANS (Cm) 

Dhp * INSIDE DIAMETER OF HEAT PIPE (Cm) 

Rc = MANIFOLD BRAZE CAN INSIDE RADIUS (Cm) 

Rb = BRAZE JOINT INSIDE RADIUS (Cm) 

Tf « FIN THICKNESS (Cm) 

TKflna * THERMAL CONDUCTIVITY OF FIN MATERIAL (WattS/(Cm-K)> 
TKcan * THERMAL CONDUCTIVITY OF MANIFOLD CAN MATERIAL (") 
TKbraze ■ THERMAL CONDUCTIVITY OF MANIFOLD BRAZE ALLOY (") 
TKhp « THERMAL CONDUCTIVITY OF HEAT PIPE WALL MATERIAL (") 

XNf = TOTAL NUMBER OF FINS FOR THE MANIFOLD HEIGHT 
Xmu ■ MOLECULAR WEIGTH OF MANIFOLD WORKING FLUID 
RHOcan = DENSITY OF MANIFOLD MATERIAL (Grams/CC) 

RHObraze « DENSITY OF BRAZE MATERIAL (Grams/CC) 

THICKman * MANIFOLD MATERIAL THICKNESS (Cm) 

Wman = MANIFOLD FLOWRATE (KG/HR) 

DUCTING DESCRIPTION 

XN9 * NUMBER OF 90 DEGREE ELBOWS OR EQUIVALENT IN DUCT SYSTEM 
R9 = AVERAGE RADIUS FOR 90 DEGREE ELBOWS (Cm) 

Dp * INSIDE DUCT DIAMETER (Cm) 

SUMLEN = TOTAL LENGTH OF DUCT SYSTEM (Cm) 

THICKP = DUCT WALL THICKNESS (Cm) 

RHOPIP = DUCT WALL DENSITY (Grams/CC) 

THICKI = DUCT INSULATION THICKNESS (Cm) 

RHOINS = DUCT INSULATION DENSITY (Grams/CC) 


If Iprob = 2, then the contents of RADAT are as follows: 

lENflg.Halt.HINCL.Rsun 
Yr Inch, Time 

GAM, ARSF.Earm, PROS 

CONFIG,Xntubes,Xnexpip,Xlflat 

Dhpipe, If luid,Imatl, Theta 

D2rad, Th i ckm, Th i ckf , Th i ck 

Em, Alpha, Hap, HArad 

Tkf i n, Rhocoat i ng, Rhof i n, RHOarm 

Xladiab,Xmchmas 

IHXflg.UEST.TCIN.TCOUT 
WDOTS , AMWS , T I NS ,DEN I NS 
DENSSH , DTUBE , PR , TTUBE 
ANPLATES , WDOTT , AKTUBE 

If lg2,Hman,Gap,Pitch 
Dean, Dhp, Rc,Rb 
Tf , TKf i na , TKcan, TKbraze 
TKhp,XNf, Xmu, RHOcan 
RHObraze, THICKman, Wman 

XN9,R9, Dp, SUMLEN 

THICKP, RHOPIP, THICKI, RHOINS 
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The required parameters are defined as: 


ORBIT DESCRIPTION 

Halt = ORBIT ALTITUDE (km) 

HI NCI b ORBIT INCLINATION ANGLE (28.5 TO 80.0 degress, ONLY) 

Rsun = DISTANCE FROM SUN (AU) 

Yrlnch = YEAR IN WHICH VEHICLE IS PLACED IN ORBIT 
Time = MISSION DURATION (Secs) 

RADIATOR DESCRIPTION 

GAM.ARSF = PENETRATION CONSTANTS - FUNCTIONS OF THE SPECIFIC MATERIAL (SEE Table 3) 
Earn) > YOUNGS MODULUS OF ARMOR Grams/sq-Cm) 

PROS * NON-PUNCTURE PROBABILITY (0.9, 0.99, 0.999, ETC.) 

CONFIG » 1.0, THEN RADIATOR IS A FLAT PLATE, ELSE IS A CONE OR CYLINDER 
Xntubes * NUMBER OF PRIMARY HEAT PIPE IN RADIATOR 
Xnexpip > NUMBER OF REDUNDENT HEAT PIPES 
Xlflat » HEAT PIPE EVAPORATOR LENGTH (Cm) 

Dhpipe = HEAT PIPE INSIDE DIAMETER (Cm) 

Ifluid « HEAT PIPE WORKING FLUID ID NUMBER (SEE Table 2 for recommendations) 

Imetl > NEAT PIPE LINER MATERIAL ID NUMBER (SEE Table 2 for recommendations) 

Theta - CONE ANGLE FOR CONICAL RADIATOR (DEGREES) 

D2rad > MANIFOLD DIAMETER FOR CONICAL RADIATOR OR MANIFOLD 
LENGTH DIVIDED BY 3.141593 FOR FLAT PLATE (Cm) 

Thickm « RADIATOR EM1SSIVITY CONTROL COATING THICKNESS (Cm) 

Thickf b RADIATOR FIN THICKNESS (Cm) 

Thick > HEAT PIPE WALL or LIHER THICKNESS (Cm) 

Em > RADIATOR SURFACE EMISS1VITY 
Alpha > RADIATOR SURFACE ABSOPTIVITY 

Hap > RADIATOR PROJECTED AREA (TOWARD SUN) (FRACTION OF TOTAL) 

HA rad - RADIATOR ACTUAL AREA (USUALLY * 1.0) 

Tkfin ■ THERMAL CONDUCTIVITY OF FIN MATERIAL (WattS/(Cm-K)) 

Rhocoating * COATING MATERIAL DENSITY (Grams/CC) 

Rhofin b FIN MATERIAL DENSITY (Grams/CC) 

RHOarm - ARMOR DENSITY (Grams/CC) 

Xladiab «= LENGTH OF ADIABATIC PORTION OF THE HEAT PIPE (Cm) 

XfflChmas * MASS OF RADIATOR DEPLOYMENT MECHANISM (KG) 

HEAT SINK HEAT EXCHANGER DESCRIPTION 

IHXflf b 1, THEN TUBE SIDE FLUID IS LITHIUM 
IHXflg = 2, THEN TUBE SIDE FLUID IS NaK-78 
UEST * INITIAL VALUE OF Uoverall (Watts/sqCm-K) 

TCIN > COLD SIDE Inlet Temperature (K) 

TCOUT b COLD SIDE Outlet Temperature (K) 

WDOTS > SHELL SIDE FLUID Flowrate (KG/Sec) 

AMWS b MOLECULAR WEIGHT OF SHELL SIDE FKUID 
TINS = 00 INSULATION THICKNESS (Cm) 

DENINS b CD INSULATION DENSITY (Grams/CC) 

DENSSH b SHELL MATERIAL Density (Grams/CC) 

DTUBE B Outside TUBE Diameter - (Cm) 

PR = tube PITCH RATIO 

TTUBE b TUBE Wall Thickness (Cm) 

ANPLATES < NUMBER OF SHELL SIDE BAFFLES (ASSUMMED EQUALLY SPACED) 

UDOTT = TUBE -SIDE Fluid Flowrate (KG/SEC) 

AKTUBE = TUBE Wall Thermal Conductivity (Watts/Cm-K) 



HEAT PIPE COOLED HANIFOLD DESCRIPTION 


Iflfl2 ■ FLAG TO SET MANIFOLD WORKING FLUID 

1 * He-Xe MIXTURE 

2 = NaK 

Hman = MANIFOLD HEIGHT (Cm) 

Gap = MANIFOLD WIDTH (Cm) 

Pitch » DISTANCE BETWEEN CAN (HEAT PIPES) CENTERLINES (Cm) 
Dean « OUTSIDE DIAMETER OF MANIFOLD BRAZE CANS (Cm) 


Dhp = INSIDE DIAMETER OF HEAT PIPE (Cm) 

Rc = MANIFOLD BRAZE CAN INSIDE RADIUS (Cm) 

Rb = BRAZE JOINT INSIDE RADIUS (Cm) 

Tf * FIN THICKNESS (Cm) 

TKfina - THERMAL CONDUCTIVITY OF FIN MATERIAL (Watts/{Cm-K)) 
TKcan = THERMAL CONDUCTIVITY OF MANIFOLD CAN MATERIAL (") 
TKbraze * THERMAL CONDUCTIVITY OF MANIFOLD BRAZE ALLOY (") 
TKhp = THERMAL CONDUCTIVITY OF HEAT PIPE WALL MATERIAL <") 
XNf * TOTAL NUMBER OF FINS FOR THE MANIFOLD HEIGHT 
Xmw * MOLECULAR WEIGTH OF HANIFOLD WORKING FLUID 
RHOcan - DENSITY OF MANIFOLD MATERIAL (Grams/CC) 

RHObraze = DENSITY OF BRAZE MATERIAL (Grams/CC) 

THICKman = MANIFOLD MATERIAL THICKNESS (Cm) 

Wman ■ MANIFOLD FLOWRATE (KG/HR) 


NaK PIPING DESCRIPTION 

XN9 = NUMBER OF 90 DEGREE ELBOWS OR EQUIVALENT IN DUCT SYSTEM 
R9 ■ AVERAGE RADIUS FOR 90 DEGREE ELBOWS (Cm) 

Dp = INSIDE DUCT DIAMETER (Cm) 

SUMLEN = TOTAL LENGTH OF DUCT SYSTEM (Cm) 

THICKP « DUCT WALL THICKNESS (Cm) 

RHOP1P « DUCT WALL DENSITY (Grams/CC) 

THICKI « DUCT INSULATION THICKNESS (Cm) 

RHOINS * OUCT INSULATION DENSITY (Grams/CC) 


If Iprob = 3, then the contents of RADAT are as follows: 

IENflg,Halt,HINCL,Rsun 

Yrlnch.Time 


GAM, ARSF.Earm, PROS 

CONF IG, Xntubes .Xnexpi p, X l f l at 

Dhpipe, If luid, I mat l , Theta 

D2rad , Th i ckm, Th i ckf .Thick 

Em, Alpha, Hap, HArad 

Tkf I n, Rhocoat i rtg , Rhof i n, RHOarm 

Xladiab.Xmchmas 

Cman, Hman, Gap, THI CKi ns 
RHOi ns , Tout , T braze , TKcan 
TKbraze, TKhp, Pi n, T i n 
Xin,RHOpip, RHOcan, RHObraze 

T H I CKman, Thtpi p, ttnan 

The required parameters are defined as: 


ORBIT DESCRIPTION 

Halt » ORBIT ALTITUDE (km) „ . 

HINCL x ORBIT INCLINATION ANGLE (28.5 TO 80.0 degress, ONLY) 

Rsun x DISTANCE FROM SUN (AU) 

Yrlnch « YEAR IN WHICH VEHICLE IS PLACED IN ORBIT 
Time ■ MISSION DURATION (Secs) 


A-6. 



RADIATOR DESCRIPTION 


GAM.ARSF = PENETRATION CONSTANTS - FUNCTIONS OF THE SPECIFIC MATERIAL (SEE Table 3) 

Earn = YOUNGS MODULUS OF ARMOR Grams/sq-Cm) 

PROB = NON-PUNCTURE PROBABILITY (0.9, 0.99, 0.999, ETC.) 

CONFIG - 1.0, THEN RADIATOR IS A FLAT PLATE, ELSE IS A CONE OR CYLINDER 
Xntubes = NUMBER OF PRIMARY HEAT PIPE IN RADIATOR 
Xnexpip « NUMBER OF REDUNDENT HEAT PIPES 
Xlflat = HEAT PIPE EVAPORATOR LENGTH (Cm) 

Dhpipe * HEAT PIPE IHSIDE DIAMETER (Cm) 

Ifluid ■ HEAT PIPE WORKING FLUID ID NUMBER (SEE Table 2 for recommendations) 

I mat l * HEAT PIPE LINER MATERIAL ID NUMBER (SEE Table 2 for recommendations) 

Theta * CONE ANGLE FOR CONICAL RADIATOR (DEGREES) 

D2rad «= MANIFOLD DIAMETER FOR CONICAL RADIATOR OR MANIFOLD 
LENGTH DIVIDED BY 3.K1593 FOR FLAT PLATE (Cm) 

Thickm - RADIATOR EMISSIVITY CONTROL COATING THICKNESS (Cm) 

Thickf - RADIATOR FIN THICKNESS (Cm) 

Thick - HEAT PIPE WALL or LINER THICKNESS (Cm) 

Em - RADIATOR SURFACE EMISSIVITY 
Alpha « RADIATOR SURFACE ABSOPTIVITY 

Hap ■ RADIATOR PROJECTED AREA (TOWARD SUN) (FRACTION OF TOTAL) 

HArad = RADIATOR ACTUAL AREA (USUALLY * 1.0) 

Tkfin - THERMAL CONDUCTIVITY OF FIN MATERIAL (WattS/(Cm-K) ) 

Rhocoating = COATING MATERIAL DENSITY (Grams/CC) 

Rhofin - FIN MATERIAL DENSITY (Grams/CC) 

RHOarm = ARMOR DENSITY (Grams/CC) 

Xladiab *= LENGTH OF ADIABATIC PORTION OF THE HEAT PIPE (Cm) 

Xmchmas = MASS OF RADIATOR DEPLOYMENT MECHANISM (KG) 

CONDENSER/MANIFOLD DESCRIPTION 

Cman = MANIFOLD FLAT LENGTH (Cm) 

Hman = MANIFOLD HEIGHT (Cm) 

Gap = AVERAGE MANIFOLD CONDENSER SURFACE SPACE (Cm) 

THICKins * MANIFOLD INSULATION THICKNESS (Cm) 

R HO ins = MANIFOLD INSULATION DENSITY (Grams/CC) 

Tout - MANIFOLD OUTLET TEMPERATURE (K) 

T braze * MANIFOLD-HEAT PIPE BRAZE MATERIAL THICKNESS (Cm) 

TKcan = MANIFOLD WALL MATERIAL THERMAL CONDUCTIVITY (W/CmK) 

TKbraze * BRAZE MATERIAL THERMAL CONDUCTIVITY (W/Cn*) TKhp = HEAT PIPE WALL MATERIAL THERMAL 

CONDUCTIVITY (W/CmK) 

Pin « MANIFOLD INLET PRESSURE (Grams/sqCm) 

Tin = MANIFOLD INLET TEMPERATURE (K) 

Xin « MANIFOLD INLET VAPOR FRACTION (QUALITY) 

RHOpip *= HEAT PIPE WALL MATERIAL 0ENSITY (Grams/CC) 

RHOcan * MANIFOLD WALL MATERIAL DENSITY (Grams/CC) 

RHObraze = BRAZE MATERIAL DENSITY (Grams/CC) 

THICKman - MANIFOLD WALL MATERIAL THICKNESS (Cm) 

Thtpip = HEAT PIPE WALL THICKNESS (Cm) 

Wman = MANIFOLD FLOWRATE (KG/Hr) 

Sample input files are supplied on the disk that contains the source code for the HREJEC subroutine. 



APPENDIX B 
SAMPLE CASES 



CASE 1: DIRECT COOLED BRATTON CONFIGURATION - HEAT REJECTION SYSTEM PHYSICAL DATA AVAILABLE 


CONTENTS OF CALL: HREJEC<2, 1, 1, 5624.56, 411.1, 388.89. 250.0) 


CONTENTS OF DATA FILE 'RADAT' 

1, 1000.0, 30.0, 1.0 

2000.0, 0.315360E+09 

1.7, 1.7, 0.703070E+09, 0.931693 

1.0, 643.810, 64.381, 206.188 
2.54, 2, 8, 0.0 

1821.84, 0.0, 0.127, 0.762E-02 
0.8, 0.5, 1.0, 2.0 

0. 849788, 0.0, 1.81009, 1.81009 

0.0, 0.0 

1, 206.188, 17.9933, 8.890 
2.75335, 2.53999, 1.32588, 1.32079 
0.253898E-01, 1.93842, 0.173073, 0.484604 
3.91193, 811.766, 40.0, 8.08932 
8.56988, 0.285537, 21.6435 

12.0, 149.684, 37.4211, 449.053 
0.299369, 8.08932, 10.16, 0.256295 


OUTPUT FROM HREJEC 


*•* HEAT REJECTION SYSTEM FOR A BRATTON CYCLE SYSTEM IN WHICH CYCLE WASTE HEAT IS REJECTED DIRECTLY FROM THE 
CYCLE WORKING FLUID IN A HEAT PIPE COOLED GAS MANIFOLD *** 


RADIATOR DEFINITION INPUTS 

GAMMA * 1.70000 

ARSF * 1.70000 

ARMOR DENSITY (Grams/CC) = 1.81009 

YOUNGS MODULUS OF ARMOR (Grams/CC) * 0.703070E+09 

EXPOSURE TIME OR MISSION DURATION (Secs) * 0.315360E+09 

NON-PUNCTURE PROBABILITY = 0.923846 

RADIATOR HEAT REJECTION RATE (KWt) = 250.0 

AVERAGE RADIATOR SURFACE TEMPERATURE (K) = 399.263 

NUMBER OF PRIMARY HEAT PIPE IN RADIATOR = 643.810 

NUMBER OF REDUNDENT HEAT PIPES= 64.3810 

HEAT PIPE EVAPORATOR LENGTH (Cm)* 206.188 

HEAT PIPE INSIDE DIAMETER (Cm)* 2.54000 

HEAT PIPE WORKING FLUID ID NUMBER* 2 

HEAT PIPE LINER MATERIAL ID NUMBER* 8 

CONE ANGLE FOR CONICAL RADIATOR (DEGREES)* 0.000000 

MANIFOLD DIAMETER FOR CONICAL RADIATOR OR MANIFOLD LENGTH DIVIDED BY 3.141593 FOR FLAT PLATE (Cm) * 
1821.84 

RADIATOR EHISSIVITY CONTROL COATING THICK. (Cm)* 0.000000 

RADIATOR FIN THICKNESS (Cm)* 0.127000 

HEAT PIPE WALL or LINER THICKNESS (Cm)* 0.762000E-02 

RADIATOR SURFACE EMISSIVITY* 0.800000 

RADIATOR SURFACE ABSOPTIVITY* 0.500000 

RADIATOR PROJ. AREA (FRACT. OF TOT.)* 1.00000 

RADIATOR ACTUAL AREA (FRACTION)* 2.00000 

THERMAL COND. OF FIN MATERIAL (W/Cm-K) = 0.849773 

COATING MATERIAL DENSITY (Grams/CC)* 0.000000 

FIN MATERIAL DENSITY (Grams/CC)* 1.81009 

LENGTH OF ADIABATIC PORTION OF THE HEAT PIPE (Cm)* 0.000000 

MASS OF RADIATOR DEPLOYMENT MECHANISM (KG)= 0.000000 


TOTAL HEAT 
REJECTED 
(KWt) 
2S0.0000 


AVERAGE 
EVAPORATOR 
TENP <K) 
399.2626 


Radiator 

FIN 

Thick (Cm) 
0.1270 


Emissivity 
Coating 
Thick (Cm) 
0.0000 


Actual Effective 

(one-side) Radiator 

Area(sq-Me.) Area(sq-Me) 
174.6257 349.2515 


Art ID Art Wall Pipe wall 

0.6452 0.0129 0.0076 

Total Length 
511.3219 


HEAT PIPE DESIGN DETAILS - DIMS in Cm 
Pipe ID Wick Thick BArteries 
2.5400 0.0129 7.6200 

Evap Length Adi Length Cond Length 
206.1880 0.0000 305.1339 


RADIATOR MASS BREAKDOWN 
Heat Pipes Fluids 
624.6960 33.7311 

O.D. ARMOR I. D. ARMOR 

342.0656 342.0656 


- Mass in KG 
FINS Emiss. Cont. 
315.4453 0.0000 

Structure TOTAL RADIATOR 
0.0000 1658.0040 


lENflg (ORBIT SELECTION) * 1 

IENf lg=1, EARTH ORBIT (LEO-GEO) 

IENf lg=2, SOLAR ORBIT (0.5 to 2.0 AU) 
ORBIT ALT I TUOE (KM) = 1000.00 

ORBIT INCLINATION ANGLE (Degrees) = 30.0000 

DISTANCE FROM SUN (AU) = 1.00000 

YEAR SATELLITE LAUNCHED = 2000.00 

HEAT PIPE COOLED MANIFOLD DEFINITION VARIABLES 


If lg2 * 1 

MANIFOLD HEIGHT (Cm)* 206.188 

MANIFOLD WIDTH (Cm)* 17.9933 

DIST. BETWN CAN (HEAT PIPES)C-LINES (Cm)= 8.89000 

NUMBER OF HEAT PIPES IN RADIATOR* 643.810 

NUMB. OF REDUNDENT HEAT PIPES IN RADIATOR* 64.3810 

OUTSIDE DIAMETER OF BRAZE CANS(Cm)* 2.75335 

INSIDE DIAMETER OF HEAT PIPE (Cm)* 2.53999 

MANIFOLD BRAZE CAN INSIDE RADIUS (Cm)* 1.32588 

BRAZE JOINT INSIDE RADIUS (Cm)* 1.32079 

FIN THICKNESS (Cm)* 0.253898E-01 

THERM. COND. OF FIN MATERIAL (W/(Cm-K))= 1 

THERM. COND. OF MANIFOLD CAN MATERIAL (W/Cnfc)= 0.173073 

THERM. COND. OF MANIF. BRAZE ALLOY (W/CmK)= 

THERM. COND. OF HEAT PIPE WALL MATL (W/CirtO* 3.91193 
TOTAL NUMBER OF FINS FOR THE MANIFOLD HEIGHT* 811.766 
DENSITY OF MANIFOLD MATERIAL (Grams/CC)- 8.08932 
DENSITY OF BRAZE MATERIAL (Grams/CC)* 8.56988 
MANIFOLD MATERIAL THICKNESS (Cm)* 0.285537 

MANIFOLD INLET PRESSURE (Grams/sq-Cm) * 5624.56 

MANIFOLD INLET TEMPERATURE (K)« 411.100 

MANIFOLD FLOWRATE (KG/HR)* 21.6435 
MANIFOLD AND RADIATOR HEAT LOAD (KWt)» 250.000 
MOLECULAR WEIGTH OF MANIFOLD WORKING FLUID* 40.0000 


MANIFOLD PRESSURE DROP (Grams/sq-Cm) * 955.31 

MANIFOLD FILM TEMPERATURE DROP (K) = 0.475179 

NAK INVENTORY MASS (KG) * 131.482 

MET MASS OF HEAT PIPE MANIFOLD (KG) * 


6491.51 


DUCTING INPUT VARIABLES 


NUMB. OF 90 DEG. ELBOWS OR EOUIV.* 12.0000 

AVERAGE RADIUS FOR 90 DEGREE ELBOWS (Cm)- 149.684 

INSIDE DUCT DIAMETER (Cm)« 37.4211 

TOTAL LENGTH OF DUCT SYSTEM (Cm)= 449.053 

GAS VELOCITY IN DUCTS (M/SEC)* 30.4785 

GAS TEMPERATURE (K)« 411.100 

GAS PRESSURE (Grams/sq-Cm)* 5624.56 

DUCT WALL THICKNESS (Cm)* 0.299369 

DUCT WALL DENSITY (Grams/CC)* 8.08932 

DUCT INSULATION THICKNESS (Cm)* 10.1600 

DUCT INSULATION DENSITY (Grams/CC)* 0.256288 

GAS MOLECULAR WEIGHT* 0.000000 

DUCT SYSTEM PRESSURE DROP (Grams/sq-Cm) = 57.9987 

DUCT SYSTEM MASS (KG>= 1266.74 

MASS SUMMARY FOR DIRECT BRAYTON SYSTEM 

HEAT PIPE COOLED GAS MANIFOLD MASS (KG) = 131.482 

MANIFOLD DUCTING MASS (KG) * 1266.74 

RADIATOR MASS (KG) * 1658.00 

DIRECT BRAYTON SYSTEM MASS (KG) * 3056.23 



CASE 2: LIQUID LOOP COOLED BRAYTON CONFIGURATION - HEAT REJECTION SYSTEM PHYSICAL DATA AVAILABLE 


CONTENTS OF CALL: 


IT ************************************ 1 

HREJEC(2, 2, 1, 5624.56, 466.7, 444.45, 250.0) 


CONTENTS OF DATA FILE 'RAD AT' 

1, 1000.0, 30.0, 1.0 

2000.0, 0.315360E+09 

1.7, 1.7, 0.703070E+09, 0.944048 

1.0, 259.676, 25.9676, 45.720 
2.54, 2, 8, 0.0 

734.826, 0.0, 0.127, 0.762E-02 
0.8, 0.5, 1.0, 2.0 
0.849788, 0.0, 1.81009, 1.81009 
0.0, 0.0 

2, 10.1950, 416.672, 450.033 
21.6045, 40.0, 10.16, 24.0 
8.08932, 0.9525, 1.30, 0.5080E-01 

5.0, 8.16972, 0.173073 
2, 36.1541, 15.240, 8.89 
2.75335, 2.53999, 1.32588, 1.32079 
0.253898E-01, 1.93842, 0.173073, 0.484604 
3.91193, 180.0, 40.0, 8.08932 

8.56988, 0.285537, 8.16972 

12.00, 14.8324, 3.70810, 762.0 
0.254, 8.08932, 10.16, 0.384443 


OUTPUT FROM HREJEC 


*** HEAT REJECTION SYSTEM FOR A BRAYTON CYCLE SYSTEM IN WHICH CYCLE WASTE HEAT IS REJECTED TO A PUMPED NaK LOOP 
FROM THE CYCLE WORKING FLUID TO A HEAT PIPE COOLED LIQUID MANIFOLD *** 


RADIATOR DEFINITION INPUTS 


GAMMA * 1.70000 

ARSF - 1.70000 

ARMOR DENSITY (Grams/CC) = 1.81009 

YOUNGS MODULUS OF ARMOR (Grams/CC) * 0.703070E+09 

EXPOSURE TIME OR MISSION DURATION (Secs) = 0.315360E+09 

NON-PUNCTURE PROBABILITY * 0.934292 

RADIATOR HEAT REJECTION RATE (KWt) * 250.0 

AVERAGE RADIATOR SURFACE TEMPERATURE (K) = 419.225 

NUMBER OF PRIMARY HEAT PIPE IN RADIATOR - 259.676 

NUMBER OF REDUNDENT HEAT PIPES* 25.9676 

HEAT PIPE EVAPORATOR LENGTH (Cm)* 45.7200 

HEAT PIPE INSIDE DIAMETER (Cm)* 2.54000 

HEAT PIPE WORKING FLUID ID NUMBER* 2 

HEAT PIPE LINER MATERIAL ID NUMBER* 8 

CONE ANGLE FOR CONICAL RADIATOR (DEGREES)* 0.000000 

MANIFOLD DIAMETER FOR CONICAL RADIATOR OR MANIFOLD LENGTH DIVIDED 


734.826 

RADIATOR EMISSIVITY CONTROL COATING THICK.(Cm)* 0.000000 

RADIATOR FIN THICKNESS (Cm)* 0.127000 

HEAT PIPE WALL or LINER THICKNESS (Cm)* 0.762000E-02 

RADIATOR SURFACE EMISSIVITY* 0.800000 

RADIATOR SURFACE ABSOPTIVITY- 0.500000 

RADIATOR PROJ. AREA (FRACT. OF TOT.)* 1.00000 

RADIATOR ACTUAL AREA (FRACTION)* 2.00000 

THERMAL COND. OF FIN MATERIAL (W/Cm-K) * 0.849773 

COATING MATERIAL DENSITY (Grams/CC)* 0.000000 

FIN MATERIAL DENSITY (Grams/CC)* 1.81009 „„„„„„„ 

LENGTH OF ADIABATIC PORTION OF THE HEAT PIPE (Cm)* 0.000000 

MASS OF RADIATOR DEPLOYMENT MECHANISM (KG)= 0.000000 


BY 3.141593 FOR FLAT PLATE (Cm) * 


TOTAL HEAT AVERAGE Radiator Emissivity 

REJECTED EVAPORATOR FIN Coating 

(KWt) TEMP 00 Thick (Cm) Thick (Cm) 

250.0000 419.2248 0.1270 0.0000 

Actual Effective 

(one-side) Radiator 

Area(sq-Me.) Area(sq-Me) 

130.8736 261.7472 

HEAT PIPE DESIGN DETAILS - DIMS in Cm 

Pipe ID Wick Thick ^Arteries Art ID Art Wall Pipe wall 

2.5400 0.0129 7.6200 0.6452 0.0129 0.0076 

Evap Length Adi Length Cond Length Total Length 
45.7200 0.0000 566.9699 612.6899 

RADIATOR MASS BREAKDOWN - Mass in KG 

Heat Pipes Fluids FINS Emiss. Cont. 

301.8325 16.2465 236.4111 0.0000 

O.D. ARMOR I. D. ARMOR Structure TOTAL RADIATOR 

350.6339 350.6339 0.0000 1255.7580 

lENflg (ORBIT SELECTION) = 1 

IENf lg*1, EARTH ORBIT (LEO-GEO) 

IENf lg=2, SOLAR ORBIT (0.5 to 2.0 AU) 

ORBIT ALTITUDE (KM) = 1000.00 

ORBIT INCLINATION ANGLE (Degrees) = 30.0000 

DISTANCE FROM SUN (AU) - 1.00000 

YEAR SATELLITE LAUNCHED = 2000.00 

HEAT PIPE COOLED MANIFOLD DEFINITION VARIABLES 

Iflg2 * 2 

MANIFOLD HEIGHT (Cm)* 36.1541 

MANIFOLD WIDTH (Cm)- 15.2400 

DIST. BETWN CAN (HEAT PIPES)C-LINES (Cm)* 8.89000 

NUMBER OF HEAT PIPES IN RADIATOR* 259.676 

NUMB. OF REDUNDENT HEAT PIPES IN RADIATOR* 25.9676 

OUTSIDE DIAMETER OF BRAZE CANS(Cm)* 2.75335 

INSIDE DIAMETER OF HEAT PIPE (Cm)* 2.53999 

MANIFOLD BRAZE CAN INSIDE RADIUS (Cm)* 1.32588 

BRAZE JOINT INSIDE RADIUS (Cm)* 1.32079 

FIN THICKNESS (Cm)* 0.253898E-01 

THERM. COND. OF FIN MATERIAL (W/(Cm-K))= 1.93842 

THERM. COND. OF MANIFOLD CAN MATERIAL (W/CmK)= 0.173073 

THERM. COND. OF MANIF. BRAZE ALLOY (W/CfflK)* 0.484604 

THERM. COND. OF HEAT PIPE WALL MATL (W/CmK)= 3.91193 

TOTAL NUMBER OF FINS FOR THE MANIFOLD HEIGHT* 180.000 

DENSITY OF MANIFOLD MATERIAL (Grams/CC)= 8.08932 

DENSITY OF BRAZE MATERIAL (Grams/CC)* 8.56988 

MANIFOLD MATERIAL THICKNESS (Cm)* 0.285537 

MANIFOLD INLET PRESSURE (Grams/sq-Cm) = 5624.56 

MANIFOLD INLET TEMPERATURE (K)= 466.700 

MANIFOLD FLOWRATE (KG/HR)* 8.16972 

MANIFOLD AND RADIATOR HEAT LOAD (KWt)= 250.000 

MOLECULAR WEIGTH OF MANIFOLD WORKING FLUID* 40.0000 

MANIFOLD PRESSURE DROP (Grams/sq-Cm) * 27.7819 

MANIFOLD FILM TEMPERATURE DROP (K) * 36.1043 

NAK INVENTORY MASS (KG) * 1001.46 

NET MASS OF HEAT PIPE MANIFOLD (KG) * 


585.325 



PIPING DEFINITION VARIABLES 


NUMB. OF 90 DEG. ELBOWS OR EOUIV.* 12.0000 

AVERAGE RADIUS FOR 90 DEGREE ELBOWS (Cm)* 14.8324 

INSIDE PIPE DIAMETER (Cm)= 3.70810 

TOTAL LENGTH OF PIPE SYSTEM (Cm)= 762.000 

NAK VELOCITY IN PIPES (M/SEC)= 9.14358 

NAK TEMPERATURE (K)* 466.700 

NAK PRESSURE (Grams/sq-Cm)* 5624.56 

PIPE WALL THICKNESS (Cm)* 0.254000 

PIPE WALL DENSITY (Grams/CC)* 8.08932 

PIPE INSULATION THICKNESS (Cm)* 10.1600 

PIPE INSULATION DENSITY (Grams/CC)* 0.384444 

PIPE SYSTEM PRESSURE DROP (Grams/sq-Cm)= 1696.15 

PIPE SYSTEM MASS (KG)* 210.384 

PIPE SYSTEM NaK MASS (KG) * 9.30602 


HEAT SOURCE/S I HK HEAT EXCHANGER DEFINITION 

TUBE SIDE FLUID FLAG * 2 

Heat Rate or Duty (KWt) * 250.000 

HOT SIDE Inlet Temperature (K)* 466.700 

HOT SIDE Outlet Temperature (K)* 444.450 

COLD SIDE Inlet Temperature (K)* 416.672 

COLD SIDE Outlet Temperature (K)* 450.033 

SHELL SIOE FLUID Flowrate (KG/HD* 21.6045 

SHELL MATERIAL Density (Grams/CC)* 8.08934 

INSIDE TUBE Diameter (Cm)* 0.952500 

TUBE Wall Thickness (Cm)* 0.508000E-01 

TUBE -SIDE Fluid Flowrate (KG/Sec)= 8.16972 

TUBE Wall Thermal Conductivity(W/(Cm-K))= 0.173073 

SHELLSIDE DP (Grams/sq-Cm) * 620.628 

SHELLSIDE H (W/sqCm-K)= 21.5384 

FRIC-FAC * 0.265247 

UNEW (U/sqCm-K) * 10.2137 

NUMBER OF TUBES IN BUNDLE * 81.0937 

Tube Side Reynolds Nunber * 46448.2 

Tube Side Press. Drop(Grams/sq-Cm>* 79.1445 

Tube Side Hg (W/sqCm-K) * 38.0459 

TUBE WALL THICKNESS (Cm) * 0.508000E-01 

DOTL2 (Cm) * 13.5268 

LENGTH (Cm) * 81.2082 

INSULATION MASS (KG) - 17.9806 

HEAD MASS (KG) * 0.348627 

SHELL MASS (KG) * 2.44039 

PLATE MASS (KG) * 0.128417 

TUBE SHEETS MASS (KG) = 0.348627 

TUBE MASS (KG) « 7.66617 

STRUCTURE AND BRACKETS MASS (KG) * 1.44564 

MASS OF NaK IN H-X (KG) * 4.99176 

Net Mass of Shell and Tube Unit(DRYXKG)* 30.3585 


NaK PUMP DEFINITION 

NAK INLET TEMPERATURE (K)* 466.700 

NAK FLOWRATE (KG/SEC)* 8.16972 

PIPING SYSTEM PRESSURE DROP (G/SC)* 1696.15 

NAK SIDE HEAT EXCHANGER PRESSURE DROP (G/SC)* 79.1445 

NAK MANIFOLD PRESSURE DROP (G/SC>= 27.7819 

NaK LOOP PRESSURE DROP (G/SC) * 1803.08 

NaK LOOP PUMP POWER REQUIRED (HYDRAULIC) (WATTS) = 1738.59 

E-M PUMP MASS (DRY) (KG) * 271.508 



NAK LOOP EXPANSION COMPENSATOR DEFINED 

VOLUME ACCUMULATOR Nak MASS (KG) « S3. 7542 

VOLUME ACCUMULATOR MASS (UET) (KG) = 110.184 

MASS SUMMARY FOR INDIRECT BRAYTON SYSTEM 

HEAT SINK HEAT EXCHANGER MASS (KG)(DRY)= 30.3585 
HEAT EXCHANGER NaK MASS (KG) = 4.99176 

NaK PIPING SYSTEM MASS (KG)(DRY) « 210.384 

MASS OF NaK IN PIPING SYSTEM (KG) * 9.30602 

MASS OF EM PUMP (KG) (WET) « 271.508 

HEAT PIPE/HaK MANIFOLD MASS (KG) (DRY) * 585.325 

MASS OF NaK IN MANIFOLD (KG) ■ 1001.46 

EXPANSION COMPENSATOR MASS (KG) (DRY) = 110.184 

MASS OF NaK IN EXPANSION COMPENSATOR ( KG )= 53.7542 

RADIATOR MASS (KG) = 1255.76 

INDIRECT BRAYTON SYSTEM MASS (KG) (WET) = 3533.03 



CASE 3: SHEAR FLOW CONDENSER IN A POTASSIUM RANKINE CYCLE - HEAT REJECTION SYSTEM PHYSICAL DATA AVAILABLE 


CONTENTS OF CALL: 


HREJEC(2, 3, 1, 140.64, 855.56, 850.00 , 250.0) 


CONTENTS OF DATA FILE 'RADAT' 

1, 1000.0, 30.0, 1.0 

2000.0, 0.315360E+09 

1.7, 1.7, 0.703070E+09, 0.970672 

1.0, 41.3705, 4.13705, 43.2394 
2.54, 5, 7, 0.0 

66.8968, 0.0, 0.127, 0.762E-02 
0.8, 0.5, 1.0, 2.0 
0.849788, 0.0, 1.81009, 1.81009 
0 . 0 , 0.0 

210.162, 43.2394, 1.05984, 10.16 
0.0, 850.0, 0.508E-02, 0.173073 
0.605756, 0.173073, 140.614, 855.560 
1.0, 8.08932, 8.08932, 8.40969 
0.158750, 0.508E-01, 442.892 


OUTPUT FROM HREJEC 


*** HEAT REJECTION SYSTEM FOR A RANKINE CYCLE SYSTEM IN WHICH CYCLE WASTE HEAT IS REJECTED DIRECTLY FROM THE 
CYCLE WORKING FLUID IN A HEAT PIPE COOLED CONDENSER *** 


RADIATOR DEFINITION INPUTS 


GAMMA = 1.70000 

ARSF * 1.70000 

ARMOR DENSITY (Grams/CC) * 1.81009 

YOUNGS MODULUS OF ARMOR (Grams/CC) * 0.703070E+09 

EXPOSURE TIME OR MISSION DURATION (Secs) = 0.315360E+09 

NON-PUNCTURE PROBABILITY - 0.961311 

RADIATOR HEAT REJECTION RATE (KWt) - 250.0 

AVERAGE RADIATOR SURFACE TEMPERATURE <K) * 827.144 

NUM8ER OF PRIMARY HEAT PIPE IN RADIATOR = 41.3705 

NUMBER OF REDUNDENT HEAT PIPES* 4.13705 

HEAT PIPE EVAPORATOR LENGTH (Cm)* 43.2394 

HEAT PIPE INSIDE DIAMETER (Cm)* 2.54000 

HEAT PIPE WORKING FLUID ID NUMBER* 5 

HEAT PIPE LINER MATERIAL ID NUMBER* 7 

CONE ANGLE FOR CONICAL RADIATOR (DEGREES)* 0.000000 

MANIFOLD DIAMETER FOR CONICAL RADIATOR OR MANIFOLD LENGTH DIVIDED 


66.8968 

RADIATOR EMISSIVITY CONTROL COATING THICK. (Cm)* 0.000000 

RADIATOR FIN THICKNESS (Cm)* 0.127000 

HEAT PIPE WALL or LINER THICKNESS (Cm)* 0.762000E-02 

RADIATOR SURFACE EMISSIVITY* 0.800000 

RADIATOR SURFACE ABSOPTIVITY* 0.500000 

RADIATOR PROJ. AREA (FRACT. OF TOT.)* 1.00000 

RADIATOR ACTUAL AREA (FRACTION)* 2.00000 

THERMAL COND. OF FIN MATERIAL (W/Cm-K) « 0.849773 

COATING MATERIAL DENSITY (Grams/CC)* 0.000000 

FIN MATERIAL DENSITY (Grams/CC)* 1.81009 

LENGTH OF ADIABATIC PORTION OF THE HEAT PIPE (Cm)* 0.000000 

MASS OF RADIATOR DEPLOYMENT MECHANISM (KG)* 0.000000 


BY 3.141593 FOR FLAT PLATE (Cm) * 


TOTAL HEAT AVERAGE Radiator Emissivity 

REJECTED EVAPORATOR FIN Coating 

(KWt) TEHP (K) Thick (Cm) Thick (Cm) 

250.0000 827.1442 0.1270 0.0000 

Actual Effective 

(one-side) Radiator 

Area(sq-Me.) Area(sq-He) 

6.7057 13.4114 

HEAT PIPE DESIGN DETAILS - DIMS in Cm 

Pipe ID Wick Thick NArteries Art ID Art Wall Pipe wall 

2.5400 0.0129 7.6200 0.6452 0.0129 0.0076 

Evap Length Adi Length Cond Length Total Length 
43.2394 0.0000 319.1042 362.3436 

RADIATOR HASS BREAKDOWN - Mass in KG 

Heat Pipes Fluids FINS Emiss. Cont. 

26.6852 1.3352 8.4793 0.0000 

O.D. ARMOR I. D. ARMOR Structure TOTAL RADIATOR 

34.6265 34.6265 0.0000 105.7527 

IENflg (ORBIT SELECTION) * 1 

I ENf l g=1 , EARTH ORBIT (LEO-GEO) 

IENf lg=2, SOLAR ORBIT (0.5 to 2.0 AU) 

ORBIT ALTITUDE (KM) - 1000.00 

ORBIT INCLINATION ANGLE (Degrees) = 30.0000 

DISTANCE FROM SUN (AU) = 1.00000 

YEAR SATELLITE LAUNCHED * 2000.00 

HEAT PIPE COOLED CONDENSER DESCRIPTION 

MANIFOLD FLAT LENGTH (Cm) = 210.162 

MANIFOLD HEIGHT (Cm) - 43.2394 

AVERAGE MANIFOLD COND. SURF. SPACE ( Gap) (Cm)= 1.05984 

MANIFOLD INSULATION THICKNESS (Cm) = 10.1600 

MANIFOLD INSULATION DENSITY (Grams/CC) = 0.000000 

NUMBER OF PRIMARY HEAT PIPES ATTACHED TO COOL CONDENSER SURFACE = 41.3705 

NUMBER OF REDUNDENT HEAT PIPES USED TO COOL CONDENSER SURFACE = 4.13705 

MANIFOLD WALL MATERIAL THICKNESS(Cm)* 0.158750 

MANIFOLD-HEAT PIPE BRAZE MATERIAL THICKNESS (Cm) = 0.508000E-02 

HEAT PIPE WALL THICKNESS (Cm) = 0.508000E-01 

MANIFOLD WALL MAT. THERMAL COND. (W/CmK) = 0.173073 

BRAZE MAT. THERMAL COND. (U/CfflK) ■ 0.605756 

HEAT PIPE WALL MAT. THERMAL COND. (W/CmK) = 0.173073 

MANIFOLD WALL MATERIAL DENSITY (Grams/CC): 8.08932 

BRAZE MATERIAL DENSITY (Grams/CC) « 8.40969 

HEAT PIPE WALL MATERIAL DENSITY (Grams/CC)* 8.08932 

HEAT PIPE WORKING FLUID NUMBER ■ 5 

MANIFOLD OPERATING CONDITIONS 

INLET PRESSURE (G/SC) = 140.614 

INLET TEMPERATURE (K) * 855.559 

MEAN CONDENSER QUALITY = 1.00000 

OUTLET TEMPERATURE (K) * 849.999 

MANIFOLD FLOWREATE (KG/Hr) = 442.541 

MANIFOLD DUTY (KUt) = 250.000 



COMPUTED RESULTS 

MANIFOLD PRESSURE DROP <G/SC) = 6.96161 

MANIFOLD FILM TEMPERATURE DROP (K) * 25.6274 

CONDENSER CONDENSATE FLOW REGIME PARAMETER = 0.127759 

CONDENSER IS OPERATING IN SHEAR FLOW REGIME 

CONDENSATE FILM REYNOLDS NUMBER = 1901.94 

MARTINELLI PARAMETER - 0.133079E-01 

VAPOR REYNOLDS NUMBER = 3803.88 

MANIFOLD MASS (KG) = 39.6255 

MASS SUMMARY FOR CONDENSING RANKINE SYSTEM 

HEAT PIPE COOLED CONDENSER MASS (KG) = 39.6255 

RADIATOR MASS (KG) = 105.753 

CONDENSING RANKINE SYSTEM MASS (KG) = 145.378 


CASE 4: DIRECT COOLED BRAYTON CONFIGURATION - NO HEAT REJECTION SYSTEM PHYSICAL DATA AVAILABLE 


CONTENTS OF CALL: HREJECO, 1, 1, 5624.56, 411.1, 386.89. 250.0) 


CONTENTS OF DATA FILE 'RADAT* 

0 , 0 . 0 , 0 . 0 , 0.0 
0.0, 0.0 

5624.56, 411.1, 40.0, 388.89 
250.0 


OUTPUT FROM HREJEC 


THE SIMPLIFIED DATA INPUT OPTION HAS BEEN SELECTED 

*** HEAT REJECTION SYSTEM FOR A BRAYTON CYCLE SYSTEM IN WHICH CYCLE WASTE HEAT IS REJECTED DIRECTLY FROM THE 
CYCLE WORKING FLUID IN A HEAT PIPE COOLED GAS MANIFOLD *** 

INPUT FOR OPTION NUMBER 1 

INPUT FOLLOWING DATA INTO FILE *RADAT* TO RUN OPT #1 


1 1000.00 30.0000 1.00000 


2000.00 

0.315360E+09 



1.70000 

1.70000 

0.703070E+09 

0.990000 

1 .00000 

643.810 

64.3810 

206.188 

2.54000 

2 

8 0.000000 

1821.84 

0.000000 

0.127000 

0.762000E- 

0.800000 

0.500000 

1.00000 

2.00000 

0.849788 

0.000000 

1.81009 

1.81009 

0.000000 

0.000000 



1 

206.188 

17.9933 

8.89000 

2.75335 

2.53999 

1 .32588 

1 .32079 

0.253898E-01 

1.93842 

0.173073 

0.484604 

3.91193 

811.766 

40.0000 

8.08932 

8.56988 

0.158750 

21.6435 


12.0000 

149.684 

37.4211 

449.053 

0.299369 

8.08932 

10.1600 

0.256295 


C IENf lg,Halt,HINCL,Rsun 

C Yrlnch,Time 

C GAM, ARSF,Earm, PROS 

C CONFIG, Xntubes.Xnexpip.Xlf lat 

C Dhpipe.Ifluid.Imatl, Theta 

C D2rad,Thictcm,Thickf .Thick 

C Em, Alpha, Hap, HArad 

C Tkfin,Rhocoating,Rhof in.RHOarm 

C Xladiab.Xmchmas 

C If lg2,Hman, Gap, Pitch 

C Dcan,Dhp,Rc,Rb 

C Tf ,TKf ina.TKcan.TKbraze 

C TKhp.XNf , Xinw, RHOcan 

C RHObraze.THICKman.Wman 

C XN9,R9,Dp,SUMLEN 

C THICKP.RHOPIP.THICKI .RHOINS 



RADIATOR DEFINITION INPUTS 


GAMMA = 1.70000 

ARSF = 1.70000 

ARMOR DENSITY (Grams/CC) * 1.81009 

YOUNGS HOOULUS OF ARMOR (Grams/CC) * 0.703070E+09 

EXPOSURE TIME OR MISSION DURATION (Secs) = 0.315360E+09 

NON-PUNCTURE PROBABILITY = 0.931693 

RADIATOR HEAT REJECTION RATE (KWt) * 250. 

AVERAGE RADIATOR SURFACE TEMPERATURE (K) = 399.262 

NUMBER OF PRIMARY HEAT PIPE IN RADIATOR * 643.810 

NUMBER OF REDUNDENT HEAT PIPES= 64.3810 
HEAT PIPE EVAPORATOR LENGTH (Cm)= 206.188 

HEAT PIPE INSIDE DIAMETER (Cm)* 2.54000 

HEAT PIPE WORKING FLUID ID NUMBER* 2 

HEAT PIPE LINER MATERIAL ID NUMBER* 8 

CONE ANGLE FOR CONICAL RADIATOR (DEGREES)* 0.000000 
MANIFOLD DIAMETER FOR CONICAL RADIATOR OR MANIFOLD LENGTH DIVIDED 
1821.84 

RADIATOR EMI SSI VI TY CONTROL COATING THICK. (Cm)* 0.000000 

RADIATOR FIN THICKNESS (Cm)* 0.127000 

HEAT PIPE WALL or LINER THICKNESS (Cm)* 0.762000E-02 

RADIATOR SURFACE EMISSIVITY* 0.800000 

RADIATOR SURFACE ABSOPTIVITY* 0.500000 

RADIATOR PROJ. AREA (FRACT. OF TOT.)* 1.00000 

RADIATOR ACTUAL AREA (FRACTION)* 2.00000 

THERMAL COND. OF FIN MATERIAL (W/Cm-K) * 0.849774 

COATING MATERIAL DENSITY (Grams/CC)* 0.000000 

FIN MATERIAL DENSITY (Grams/CC)* 1.81009 

LENGTH OF ADIABATIC PORTION OF THE HEAT PIPE (Cm)* 0.000000 

MASS OF RADIATOR DEPLOYMENT MECHANISM (KG)= 0.000000 


BY 3.141593 FOR FLAT PLATE (Cm) * 


TOTAL HEAT 

AVERAGE 

Radiator 

REJECTED 

EVAPORATOR 

FIN 

OCWt) 

TEMP (K) 

Thick (Cm) 

250.0000 

399.2623 

0.1270 

Actual 

Effective 


(one-side) 

Radiator 


Area(sq-Me.) 

Area(sq-Me) 


174.6265 

349.2531 


HEAT PIPE DESIGN DETAILS - 

DIMS in Cm 

Pipe ID 

Wick Thick 

#Arteries 

2.5400 

0.0129 

7.6200 

Evap Length 

Adi Length 

Good Length 

206.1884 

0.0000 

305.1358 


Emissivity 
Coating 
Thick (Cm) 
0.0000 


Art ID Art Well Pipe wall 

0.6452 0.0129 0.0076 

Total Length 
511.3242 


RADIATOR MASS BREAKDOWN - Mass in KG 

Heat Pipes Fluids FINS Emiss. Cont. 

624.6988 33.7312 315.4457 0.0000 

O.D .ARMOR I .D. ARMOR Structure TOTAL RADIATOR 

357.6603 357.6603 0.0000 1689.1960 


lENflg (ORBIT SELECTION) = 1 

IENf lg*1, EARTH ORBIT (LEO-GEO) 

IENf lg*2, SOLAR ORBIT (0.5 to 2.0 AU) 
ORBIT ALTITUDE (KM) * 1000.00 

ORBIT INCLINATION ANGLE (Degrees) = 30.0000 

DISTANCE FROM SUN (AU) = 1.00000 

YEAR SATELLITE LAUNCHED * 2000.00 


HEAT PIPE COOLED MANIFOLD DEFINITION VARIABLES 

If lg2 * 1 

MANIFOLD HEIGHT (Cm)* 206.188 

MANIFOLD WIDTH (Cm)* 17.9933 

DIST. BETUN CAN (HEAT PIPES)C-LINES (Cm)* 8.89000 

NUMBER OF HEAT PIPES IN RADIATOR* 643.810 

NUMB. OF REDUNDENT HEAT PIPES IN RADIATOR* 64.3810 

OUTSIDE DIAMETER OF BRAZE CANS(Cm)* 2.75335 

INSIDE DIAMETER OF HEAT PIPE (Cm)* 2.53999 

MANIFOLD BRAZE CAN INSIDE RADIUS (Cm)* 1.32588 

BRAZE JOINT INSIDE RADIUS (Cm)* 1.32079 

FIN THICKNESS (Cm)* 0.253898E-01 

THERM. COND. OF FIN MATERIAL (W/(Cm-K))= 1.93842 

THERM. COND. OF MANIFOLD CAN MATERIAL (W/CflK)* 0.173073 

THERM. COND. OF MANIF. BRAZE ALLOY (U/CmK)* 0.484604 

THERM. COND. OF HEAT PIPE WALL MATL (W/CmK)= 3.91193 

TOTAL NUMBER OF FINS FOR THE MANIFOLD HEIGHT* 811.766 

DENSITY OF MANIFOLD MATERIAL (Grams/CC)* 8.08932 

DENSITY OF BRAZE MATERIAL (Grams/CC)* 8.56988 

MANIFOLD MATERIAL THICKNESS (Cm)* 0.158750 

MANIFOLD INLET PRESSURE (Grams/sq-Cm) * 5624.56 

MANIFOLD INLET TEMPERATURE (K>* 411.100 

MANIFOLD FLOWRATE (KG/HR)* 21.6435 

MANIFOLD AND RADIATOR HEAT LOAD (KWt)* 250.000 

MOLECULAR WEIGTH OF MANIFOLD WORKING FLUID* 40.0000 

MANIFOLD PRESSURE DROP (Grams/sq-Cm) * 955.353 

MANIFOLD FILM TEMPERATURE DROP (K) = 0.475178 

NAK INVENTORY HASS (KG) = 131.483 

NET MASS OF HEAT PIPE MANIFOLD (KG) * 3863.87 


DUCTING INPUT VARIABLES 

NUMB. OF 90 DEG. ELBOWS OR EQUIV.* 12.0000 

AVERAGE RADIUS FOR 90 DEGREE ELBOWS (Cm)* 149.684 

INSIDE DUCT DIAMETER (Cm)* 37.4211 

TOTAL LENGTH OF DUCT SYSTEM (Cm)* 449.053 

GAS VELOCITY IN DUCTS (M/SEC)* 30.4785 

GAS TEMPERATURE (K)= 411.100 

GAS PRESSURE (Grams/sq-Cm)* 5624.56 

DUCT WALL THICKNESS (Cm)* 0.299369 

DUCT WALL DENSITY (Grams/CC)* 8.08932 

DUCT INSULATION THICKNESS (Cm)* 10.1600 

DUCT INSULATION DENSITY (Grams/CC)* 0.256288 

GAS MOLECULAR WEIGHT* 0.000000 

DUCT SYSTEM PRESSURE DROP (Grams/sq-Cm) * 57.9988 

DUCT SYSTEM HASS (KG)* 1266.75 

MASS SUMMARY FOR DIRECT BRAYTON SYSTEM 

HEAT PIPE COOLED GAS MANIFOLD MASS (KG) * 131.463 

MANIFOLD DUCTING MASS (KG) * 1266.75 

RADIATOR MASS (KG) * 1689.20 

DIRECT BRAYTON SYSTEM MASS (KG) * 3087.43 



CASE 5: LIQUID LOOP COOLED BRAYTON CONFIGURATION - NO HEAT REJ ECTI W^SYS TE M^PN YSICAL DATA AVAILABLE 

CONTENTS OF CALL: HREJ ECC1, ^ 2, 1. 5624.56, 466.7, 444.45, 250.0) 

CONTENTS OF DATA FILE 'RADAT' 

0 , 0 . 0 , 0 . 0 , 0.0 

0.0, 0.0 

5624.56, 466.7, 40.0, 444.45 

250.0 
******* 

OUTPUT FROM HRE JEC *,** * »»** **»***««« 

THE SIMPLIFIED DATA INPUT OPTION HAS BEEN SELECTED 


*** HEAT REJECTIOH SYSTEM FOR A BRAYTON CYCLE SYSTEM IN WHICH CYCLE WASTE HEAT IS REJECTED TO A PUMPED NsK LOOP 
FROM THE CYCLE WORKING FLUID TO A HEAT PIPE COOLED NaK MANIFOLD *** 


INPUT FOR OPTION NUMBER 2 

INPUT FOLLOWING DATA INTO FILE *RADAT* TO RUN OPT #2 


1 

1000.00 

30.0000 

1.00000 

2000.00 

0.315360E+09 



1.70000 

1.70000 

0.703070E+09 

0.990000 

1.00000 

259.676 

25.9676 

45.7200 

2.54000 

2 

8 0.000000 

734.026 

0.000000 

0.127000 

0.762000E 

0.800000 

0.500000 

1 .00000 

2.00000 

0.849788 

0.000000 

1.81009 

1.81009 

0.000000 

0.000000 



2 

10.1950 

416.672 

450.033 

21.6045 

40.0000 

10.1600 

24.0000 

8.08932 

0.952500 

1 .30000 

0.508000E 

5.00000 

8.16972 

0.173073 


2 

36.1541 

15.2400 

8.89000 

2.75335 

2.53999 

1.32588 

1 .32079 

0. 2538988-01 

1.93842 

0.173073 

0.484604 

3.91193 

180.000 

40.0000 

8.08932 

8.56988 

0.158750 

8.16972 


12.0000 

14.8324 

3.70810 

762.000 

0.254000 

8.08932 

10.1600 

0.384443 


C lENf lg,Halt,HINCL,Rsun 

C Yrlnch,Time 

C GAM,ARSF,Earm,PROB 

C CONFIG, Xntubes.Xnexpip.Xtflat 

C Dhpipe,Ifluid,Iaiatl, Theta 

C D2rad,Thickm,Thickf .Thick 

C Era, Alpha, Hap, HArad 

C Tkf In, Rhocoat I ng ,Rhof 1 n, RHOarra 

C Xladiab,Xmchmas 

C IHXflfl,UEST,TCIN,TCOUT 

C WDOTS,AMWS,TINS,DENINS 

C DENSSH , DTUBE , PR , TTUBE 

C ANPLATES , IOOTT , AKTUBE 

C If lg2,Hnan, Gap, Pitch 

C Dcan,Ohp,Rc,Rb 

C Tf ,TKf ina,TKcan,TKbraze 

C TKhp,XNf ,Xiw,RHOcan 

C RHObraze,THICKman,l*nan 

C XN9,R9,Dp,SUMLEN 

C THICKP,RHOPIP,THICKI , RHOINS 


RADIATOR DEFINITION INPUTS 


GAMMA = 1.70000 

ARSF * 1.70000 

ARMOR DENSITY (Grams/CC) = 1.81009 

YOUNGS MODULUS OF ARMOR (Grams/CC) = 0.703070E+09 

EXPOSURE TIME OR MISSION DURATION (Secs) = 0.315360E+09 

NON-PUNCTURE PROBABILITY - 0.944048 

RADIATOR HEAT REJECTION RATE (KUt) ■ 250. 

AVERAGE RADIATOR SURFACE TEMPERATURE (K) * 419.224 

NUMBER OF PRIMARY HEAT PIPE IN RADIATOR = 259.676 

NUMBER OF REDUNDENT HEAT PIPES* 25.9676 
HEAT PIPE EVAPORATOR LENGTH (Cm)* 45.7200 

HEAT PIPE INSIDE DIAMETER (Cm)* 2.54000 

HEAT PIPE WORKING FLUID ID NUMBER* 2 

HEAT PIPE LINER MATERIAL ID NUMBER* 8 

CONE ANGLE FOR CONICAL RADIATOR (DEGREES)* 0.000000 . 

MANIFOLD DIAMETER FOR CONICAL RADIATOR OR MANIFOLD LENGTH DIVIDED BY 3.141593 FOR FLAT PLATE (Cm) « 

734.826 

RADIATOR EMISSIVITY CONTROL COATING THICK. (Cm)* 0.000000 

RADIATOR FIN THICKNESS (Cm)* 0.127000 

HEAT PIPE WALL or LINER THICKNESS (Cm)* 0.762000E-02 

RADIATOR SURFACE EMISSIVITY* 0.800000 

RADIATOR SURFACE ABSOPTIVITY* 0.500000 

RADIATOR PROJ. AREA (FRACT. OF TOT.)* 1.00000 

RADIATOR ACTUAL AREA (FRACTION)* 2.00000 

THERMAL COND. OF FIN MATERIAL (U/Cm-K) * 0.849774 

COATING MATERIAL DENSITY (Grams/CC)= 0.000000 

FIN MATERIAL DENSITY (Grams/CC)* 1.81009 

LENGTH OF ADIABATIC PORTION OF THE HEAT PIPE (Cm)* 0.000000 

MASS OF RADIATOR DEPLOYMENT MECHANISM (KG)= 0.000000 


TOTAL HEAT 

AVERAGE 

Radiator 

REJECTED 

EVAPORATOR 

FIN 

OCWt) 

TEMP (K) 

Thick (Cm) 

250.0000 

419.2245 

0.1270 

Actual 

Effective 


(one-side) 

Radiator 


Area(sq-Me.) 

Area(sq-Me) 


130.8741 

261 .7481 


HEAT PIPE DESIGN DETAILS - 

DIMS in Cm 

Pipe ID 

Wick Thick 

#Arteries 

2.5400 

0.0129 

7.6200 

Evap Length 

Adi Length 

Cond Length 

45.7200 

0.0000 

566.9722 


Emissivity 
Coating 
Thick (Cm) 
0.0000 


Art ID Art Wall Pipe wall 

0.6452 0.0129 0.0076 

Total Length 
612.6923 


RADIATOR MASS BREAKDOWN - Mass in KG 

Heat Pipes Fluids FINS Emiss. Cont. 

301.8342 16.2466 236.4112 0.0000 

O.D. ARMOR I. D. ARMOR Structure TOTAL RADIATOR 

374.3636 374.3636 0.0000 1303.2190 


lENflg (ORBIT SELECTION) * 1 

IENf lg=1, EARTH ORBIT (LEO-GEO) 
lENf lg*2, SOLAR ORBIT (0.5 to 2.0 AU) 
ORBIT ALTITUDE (KM) = 1000.00 

ORBIT INCLINATION ANGLE (Degrees) = 30.0000 

DISTANCE FROM SUN (AU) * 1.00000 

YEAR SATELLITE LAUNCHED = 2000.00 



HEAT PIPE COOLED MANIFOLD DEFINITION VARIABLES 

IflflZ = 2 

MANIFOLD HEIGHT (Cm)= 36.1541 

MANIFOLD WIDTH (Cm)* 15.2400 

DIST. BETUN CAN (HEAT PIPES)C-LINES (Cm)= 8.89000 

NUMBER OF HEAT PIPES IN RADIATOR* 259.676 

NUMB. OF REDUNDENT HEAT PIPES IN RADIATOR* 25.9676 

OUTSIDE DIAMETER OF BRAZE CANS(Cm)* 2.75335 

INSIDE DIAMETER OF HEAT PIPE (Cm)* 2.53999 

MANIFOLD BRAZE CAN INSIDE RADIUS (Cm)* 1.32588 

BRAZE JOINT INSIDE RADIUS (Cm)* 1.32079 

FIN THICKNESS (Cm)* 0.253898E-01 

THERM. COND. OF FIN MATERIAL (U/(Cm-K))= 1.93842 

THERM. CONO. OF MANIFOLD CAN MATERIAL (U/CmK)* 0.173073 

THERM. COND. OF MANIF. BRAZE ALLOY (U/CmK)* 0.484604 

THERM. COND. OF HEAT PIPE WALL NATL (U/CmK)* 3.91193 

TOTAL NUMBER OF FINS FOR THE MANIFOLD HEIGHT* 180.000 

DENSITY OF MANIFOLD MATERIAL (Grams/CC)* 8.08932 

DENSITY OF BRAZE MATERIAL (Grams/CC>* 8.56988 

MANIFOLD MATERIAL THICKNESS (Cm)* 0.158750 

MANIFOLD INLET PRESSURE (Grams/sq-Cm) = 5624.56 

MANIFOLD INLET TEMPERATURE (K)» 466.700 

MANIFOLD FLOWRATE (KG/HR)* 8.16972 

MANIFOLD AND RADIATOR HEAT LOAD (KUt)* 250.000 

MOLECULAR UEIGTH OF MANIFOLD WORKING FLUID* 40.0000 

MANIFOLD PRESSURE DROP (Grame/aq-Cm) * 27.7819 

MANIFOLD FILM TEMPERATURE DROP (K) * 36.1043 

NAK INVENTORY MASS (KG) * 1001.46 

NET MASS OF HEAT PIPE MANIFOLD (KG) * 343.698 


PIPING DEFINITION VARIABLES 

NUMB. OF 90 DEG. ELBOWS OR EQUIV.* 12.0000 

AVERAGE RADIUS FOR 90 DEGREE ELBOWS (Cm)* 14.8324 

INSIDE PIPE DIAMETER (Cm)* 3.70810 

TOTAL LENGTH OF PIPE SYSTEM (Cm)* 762.000 

NAK VELOCITY IN PIPES (M/SEC)* 9.14355 

NAK TEMPERATURE (K)* 466.700 

NAK PRESSURE (Grams/sq-Cm)* 5624.56 

PIPE WALL THICKNESS (Cm)* 0.254000 

PIPE WALL DENSITY (Grams/CC)* 8.08932 

PIPE INSULATION THICKNESS (Cm)* 10.1600 

PIPE INSULATION DENSITY (Grams/CC)* 0.384444 

PIPE SYSTEM PRESSURE DROP (Grams/sq-Cm)* 1696.14 

PIPE SYSTEM MASS (KG)= 210.384 

PIPE SYSTEM NaK MASS (KG) * 9.30602 


HEAT SOURCE/SINK HEAT EXCHANGER DEFINITION 


TUBE SIDE FLUID FLAG = 2 

Heat Rate or Duty (KWt) = 250.000 

HOT SIDE Inlet Temperature (K)« 466.700 

HOT SIDE Outlet Temperature (K)= 444.450 

COLD SIDE Inlet Temperature (K)* 416.672 

COLD SIDE Outlet Temperature (K)* 450.033 

SHELL SIDE FLUID Flowrate (KG/Hr)« 21.6045 

SHELL MATERIAL Density (Grams/CC)= 8.08934 

INSIDE TUBE Diameter (Cm)= 0.952500 

TUBE Uall Thickness (Cm)* 0.508000E-01 

TUBE -SIDE Fluid Flowrate (KG/Sec)= 8.16972 

TUBE Uall Thermal Conductivity(W/(Cm-K))= 0.173073 

SHELLSIDE DP (Grams/sq-Cm) * 620.624 

SHELLSIDE H (U/sqCm-K)= 21.5383 

FRIC-FAC * 0.265246 

UNEU (U/sqCm-K) * 10.2136 

NUMBER OF TUBES IN BUNDLE * 81.0944 

Tube Side Reynolds Number = 46447.7 

Tube Side Press. Drop(Grams/sq-Cm)= 79.1433 

Tube Side Hg (U/sqCm-K) * 38.0457 

TUBE UALL THICKNESS (Cm) = 0.508000E-01 

DOTL2 (Cm) = 13.5269 

LENGTH (Cm) = 81.2085 

INSULATION MASS (KG) * 17.9807 

HEAD MASS (KG) = 0.348632 

SHELL MASS (KG) = 2.44042 

PLATE MASS (KG) * 0.128418 

TUBE SHEETS MASS (KG) * 0.348632 

TUBE MASS (KG) * 7.66628 

STRUCTURE AND BRACKETS MASS (KG) * 1.44566 

MASS OF NaK IN H-X (KG) * 4.99182 

Net Mass of Shell and Tube Unit(DRY)(KG)= 30.3588 


NaK PUMP DEFINITION 

NAK INLET TEMPERATURE (K)= 466.700 

NAK FLOURATE (KG/SEC)* 8.16972 

PIPING SYSTEM PRESSURE DROP (G/SC)= 1696.14 

NAK SIDE HEAT EXCHANGER PRESSURE DROP (G/SC)= 79.1433 

NAK MANIFOLD PRESSURE DROP (G/SC)= 27.7819 

NaK LOOP PRESSURE DROP (G/SC) * 1803.07 

NaK LOOP PUMP POUER REQUIRED (HYDRAULIC) (UATTS) = 1738.58 

E-M PUMP MASS (DRY) (KG) = 271.506 

NAK LOOP EXPANSION COMPENSATOR DEFINED 

VOLUME ACCUMULATOR Nak MASS (KG) = 54.2511 

VOLUME ACCUMULATOR MASS (UET) (KG) * 111.024 

MASS SUMMARY FOR INDIRECT BRAYTON SYSTEM 

HEAT SINK HEAT EXCHANGER MASS (KG)(DRY)= 30.3588 
HEAT EXCHANGER NaK MASS (KG) * 4.99182 

NaK PIPING SYSTEM MASS (KG)(DRY) = 210.384 

NASS OF NaK IN PIPING SYSTEM (KG) * 9.30602 

MASS OF EM PUMP (KG) (UET) = 271.506 

HEAT PIPE/NaK MANIFOLD MASS (KG) (DRY) * 343.698 

NASS OF NaK IN MANIFOLD (KG) * 1001.46 

EXPANSION COMPENSATOR MASS (KG) (DRY) * 111.024 

MASS OF NaK IN EXPANSION COMPENSATOR(KG)* 54.2511 
RADIATOR MASS (KG) = 1303.22 

INDIRECT BRAYTON SYSTEM MASS (KG) (UET) = 3340.20 


CASE 6: SHEAR FLOW CONDENSER IN A POTASSIUM RANKINE CYCLE - NO HEAT REJECTION SYSTEM PHYSICAL DATA AVAILABLE 



CONTENTS OF DATA FILE 'RADAT' 

0 , 0 . 0 , 0 . 0 , 0.0 1.0 

0 . 0 , 0.0 

133.6707, 850.0, 40.0, 754.5 
2128.32 



THE SIMPLIFIED DATA INPUT OPTION HAS BEEN SELECTED 

•** HEAT REJECTION SYSTEM FOR A RANKINE CYCLE SYSTEM IN WHICH CYCLE WASTE HEAT IS REJECTED DIRECTLY FROM THE 
CYCLE WORKING FLUID IN A HEAT PIPE COOLED CONDENSER *** 

INPUT FOR OPTION NUMBER 3 

INPUT FOLLOWING DATA INTO FILE *RADAT* TO RUN OPT #3 


1 1000.00 30.0000 1.00000 


2000.00 

0.315360E+09 



1.70000 

1.70000 

0.703070E+09 

0.990000 

1.00000 

41.3662 

4.13662 

43.2447 

2.54000 

5 

7 0.000000 

66.8897 

0.000000 

0.127000 

0.762000E 

0.800000 

0.500000 

1 .00000 

2.00000 

0.849788 

0.000000 

1.81009 

1.81009 

0.000000 

0.000000 



210.140 

43.2447 

1.05962 

10.1600 

0.000000 

850.000 

0.508000E-02 

0.173073 

0.605756 

0.173073 

140.614 

855.600 

1.00000 

8.08932 

8.08932 

8.40969 

0.158750 

0.508000E-01 

442.915 


lENf lfl,Halt,HINCL,Rsun 



Yrlnch,Time 




C GAM,ARSF,Earm,PROB 

C CONFIG, Xntubes,Xnexp1p,Xlflat 

C Dhplpe, If lu1d,lmatl, Theta 

C D2rad,Thickm,Thickf, Thick 

C Em, A l pha , Hap, HArad 

C Tkf in.Rhocoating.Rhof In.RHOarm 

C Xladiab.Xmehmas 

C Cman.Hman, Gap, THICK ins 

C RHO i ns , T out ,Tbraze,TKcan 

C TKbraze,TKhp,Pin,Tin 

C Xi n, RHOpi p, RHOcan, RHObraze 

C TH I CKman, Thtpi p, Mman 


RADIATOR DEFINITION INPUTS 


GAMMA = 1.70000 

ARSF = 1.70000 

ARMOR DENSITY (Grams/CC) = 1.81009 

YOUNGS MODULUS OF ARMOR (Grams/CC) = 0.703070E+09 

EXPOSURE TIME OR MISSION DURATION (Secs) = 0.315360E+09 

NON-PUNCTURE PROBABILITY = 0.970672 

RADIATOR HEAT REJECTION RATE (KWt) = 853250. 

AVERAGE RADIATOR SURFACE TEMPERATURE (X) = 827.164 

NUMBER OF PRIMARY HEAT PIPE IN RADIATOR = 41.3662 

NUMBER OF REDUNDENT HEAT PIPES® 4.13662 
HEAT PIPE EVAPORATOR LENGTH (Cm)= 43.2447 

HEAT PIPE INSIDE DIAMETER (Cm)® 2.54000 

HEAT PIPE WORKING FLUID ID NUMBER® 5 

HEAT PIPE LINER MATERIAL ID NUMBER® 7 

CONE ANGLE FOR CONICAL RADIATOR (DEGREES)® 0.000000 

MANIFOLD DIAMETER FOR CONICAL RADIATOR OR MANIFOLD LENGTH DIVIDED BY 3.141593 FOR FLAT PLATE (Cm) 
2038.80 

RADIATOR EMISSIVITY CONTROL COATING THICK. (Cm)® 0.000000 

RADIATOR FIN THICKNESS (Cm)® 3.87096 

HEAT PIPE WALL or LINER THICKNESS (Cm)® 0.232258 

RADIATOR SURFACE EMISSIVITY® 0.800000 

RADIATOR SURFACE ABSOPTIVITY® 0.500000 

RADIATOR PROJ. AREA (FRACT. OF TOT.)® 1.00000 

RADIATOR ACTUAL AREA (FRACTION)® 2.00000 

THERMAL COND. OF FIN MATERIAL (W/Cm-K) * 0.849774 

COATING MATERIAL DENSITY (Grams/CC)® 0.000000 

FIN MATERIAL DENSITY (Grams/CC)® 1.81009 

LENGTH OF ADIABATIC PORTION OF THE HEAT PIPE (Cm)® 0.000000 

MASS OF RADIATOR DEPLOYMENT MECHANISM (KG)® 0.000000 


TOTAL HEAT 

AVERAGE 

Radiator 

REJECTED 

EVAPORATOR 

FIN 

(KWt) 

TEMP (K) 

Thick (Cm) 

250.0000 

827.1643 

0.1270 

Actual 

Effective 


(one-side) 

Radiator 


Area(sq-Me.) 

Area(sq-Me) 


6.7048 

13.4097 


HEAT PIPE DESIGN DETAILS - 

DIMS in Cm 

Pipe ID 

Wick Thick 

#Arteries 

2.5400 

0.0129 

7.6200 

Evap Length 

Adi Length 

Cond Length 

43.2447 

0.0000 

319.0964 


Emissivity 
Coat i ng 
Thick (Cm) 
0.0000 


Art ID Art UaLl Pipe wall 

0.6452 0.0129 0.0076 

Total Length 
362.3411 


RADIATOR MASS 
Heat Pipes 
26.6823 
O.D. ARMOR 1 
38.6962 


BREAKDOWN - Mass in KG 

Fluids FINS Emiss. Cont. 

1.3351 8.4781 0.0000 

.D. ARMOR Structure TOTAL RADIATOR 

38.6962 0.0000 113.8878 


lENflg (ORBIT SELECTION) = 1 

IENf lg=1 , EARTH ORBIT (LEO-GEO) 

IENf lg=2, SOLAR ORBIT (0.5 to 2.0 AU) 
ORBIT ALTITUDE (KM) = 1000.00 

ORBIT INCLINATION ANGLE (Degrees) * 30.0000 

DISTANCE FROM SUN (AU) = 1.00000 

YEAR SATELLITE LAUNCHED = 2000.00 



HEAT PIPE COOLED CONDENSER DESCRIPTION 


MANIFOLD FLAT LENGTH (Cm) = 210.140 

MANIFOLD HEIGHT (Cm) = 43.2447 

AVERAGE MANIFOLD COND. SURF. SPACE(Gap)(Cm)= 1.05962 

MANIFOLD INSULATION THICKNESS (Cm) = 10.1600 

MANIFOLD INSULATION DENSITY (Grams/CC) = 0.000000 

NUM8ER OF PRIMARY HEAT PIPES ATTACHED TO COOL CONDENSER SURFACE = 

NUMBER OF REDUNDENT HEAT PIPES USED TO COOL CONDENSER SURFACE = 

MANIFOLD WALL MATERIAL THlCKNESS(Cm)- 0.158750 

MANIFOLD-HEAT PIPE BRAZE MATERIAL THICKNESS (Cm) = 0.508000E-02 

HEAT PIPE WALL THICKNESS (Cm) * 0.508000E-01 

MANIFOLD WALL MAT. THERMAL COND. (W/CmK) * 0.173073 

BRAZE MAT. THERMAL COND. (W/CmK) - 0.605756 

HEAT PIPE WALL MAT. THERMAL COND. (W/CmK) * 0.173073 

MANIFOLD WALL MATERIAL DENSITY (Grams/CC)- 8.08932 

BRAZE MATERIAL DENSITY (Grams/CC) « 8.40969 

HEAT PIPE WALL MATERIAL DENSITY(Grams/CC)» 8.08932 

HEAT PIPE WORKING FLUID NUMBER - 5 


41.3662 

4.13662 


MANIFOLD OPERATING CONDITIONS 

INLET PRESSURE (G/SC) = 140.614 

INLET TEMPERATURE (K) = 855.599 

MEAN CONDENSER QUALITY * 1.00000 

OUTLET TEMPERATURE (K) = 849.999 

MANIFOLD FLOWREATE (KG/Hr) - 442.564 

MANIFOLD DUTY (KWt) « 250.000 


COMPUTED RESULTS 

MANIFOLD PRESSURE DROP (G/SC) - 6.96164 

MANIFOLD FILM TEMPERATURE DROP (K) ■ 25.6271 

CONDENSER CONOENSATE FLOW REGIME PARAMETER * 0.127761 

CONDENSER IS OPERATING IN SHEAR FLOW REGIME 

CONDENSATE FILM REYNOLDS NUMBER « 1901.90 

MART1NELLI PARAMETER « 0.133113E-01 

VAPOR REYNOLDS NUMBER - 3803.80 

MANIFOLD MASS (KG) - 39.6261 

MASS SUMMARY FOR CONDENSING RANKINE SYSTEM 

HEAT PIPE COOLED CONDENSER MASS (KG) = 39.6261 

RADIATOR MASS (KG) « 113.888 

CONDENSING RANKINE SYSTEM MASS (KG) - 153.514 


APPENDIX C 


CODE LISTING 
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PROGRAM HRCHEK Compiling Options:/NO/N7/B/NC/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/U/NX/NZ1 
Source file Listing 

1 PROGRAM HRCHEK 

2 C 

3 C DRIVER CODE TO CHECKOUT SUBROUTINE HRMAST 

4 C 

5 0PEN(5,FIIE-'CHKDAT') 

6 READ (5,*) Iselec,Iprob,IENFLG 

7 READ (5,*) Pin, Tin, Tout, Qred 

8 CALL HREJEC(lselec,Iprob,IENf Ig, Pin, Tin, Tout, Orad) 

9 STOP 

10 END 
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SUBROUTINE HRMAST Compiling 0ptions:/N0/N7/B/NC/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/W/NX/NZ1 
Source file Listing 


11 C 

12 C 

13 C 

14 SUBROUTINE HREJEC( Iselec, Iprob, IENflg, Pin, Tin, Tout, Ored) 

15 C 

16 C COMPUTATION OF THE PERFORMANCE AND NASS OF HEAT REJECTION SYSTEMS 

17 C 

18 C COOE ESTIMATES THE MASS AND PERFORMANCE OF HEAT PIPE COOLED NEAT 

19 C REJECTION SYSTEMS THAT OPERATE AS THE MAIN HEAT REJECTION ELEMENTS 

20 C IN BRATTON AND RANKINE CYCLE SPACE POWER SYSTEMS. 

21 C 

22 C AN OPTION IS OFFERED WHEREBY THE CODE WILL SUPPLY MOST OF THE 

23 C INPUTS REQUIRED AND RETURN THE INPUTS FOR A DETAILED CASE WITH 

24 C WHICH THE USER CAN START HIS OPTIMIZATION STUDY. 

25 C 

26 C *** COOE LOGIC AND COMPUTATION OUTLINE *** 

27 C 

28 C THE FOLLOWING STEPS ARE FOLLOWED IN ESTIMATING THE NASS AND 

29 C PERFORMANCE OF HEAT PIPE COOLED HEAT REJECTION SYSTEMS IN EITHER 

30 C BRATTON OR RANKINE CYCLE APPLICATIONS: 

31 C 1. SELECT THE HEAT REJECTION EQUIPMENT TRAIN AND DEFINE THE 

32 C EQUIPMENT ELEMENTS REQUIRED. THREE OPTIONS ARE SUPPLIED: 

33 C A. DIRECT COOLED GAS MANIFOLD FOR BRATTONS. 

34 C B. NaK LIQUID METAL COOLED H-X LOOP FOR BRATTONS. 

35 C C. SHEAR FLOW CONDEHSER WITH DIRECT HEAT PIPE COOLING 

36 C 2. IF NECESSART, AN AUXILIARY ROUTINE IS INCLUDED THAT 

37 C SUPPLIES NON-OPTIMIZED, BUT WORKABLE, INPUT VALUES FOR MOST 

38 C OF THE VARIABLES REQUIRED TO RUN THE VARIOUS SUBROUTINES. 

39 C 3. ANALYZE THE HYDRAULIC LOOP REQUIRED FOR THE LIQUID 

40 C USED BY SOME OF THE SYSTEMS. THE H-X, PIPING AND MANIFOLD DELTA-P 

41 C IS DETERMINED IN THIS STEP. 

42 C 4. DETERMINE THE WEIGHT OF THE PUMP REQUIRED. 

43 C 5. ON PUMPED LOOP SYSTEMS, A HEAT PIPE TO FLUID HEAT 

44 C EXCHANGER IS ANALYZED 

45 C 6. ON DIRECT SYSTEMS, A GAS TO HEAT PIPE FLUID HEAT EXCHANGER 

46 C IS ANALYZED. 

47 C 7. A RADIATOR IS SIZED TO REJECT THE PROPER AMOUNT OF HEAT 

48 C AND ITS MASS IS DETERMINED. 

49 C 8. COOE OUTPUT CONSISTS OF COMPONENT SIZES AND MASSES. 

50 C 

51 0PEN(5,FILE«'RADAT') 

52 C 

53 PI - 3.14159265 

54 C 

55 C IF Iselec ■ 1, THEN THE CODE WILL SUPPLY MOST OF THE VARIABLE 

56 C VALUES NEEDED. IF Iselec * 2, THEN THE USER MUST SUPPLY MOST 

57 C OF THE VARIABLE VALUES NEEDED 

58 C 

59 C 

60 C IF Iprob * 1, COOE IS SET UP FOR A DIRECT COOLED BRATTON 

61 C CONFIGURATION. 

62 C IF Iprob « 2, CODE IS SET UP FOR A LIQUID LOOP COOLED 

63 C BRATTON CONFIGURATION. 
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Source file Listing 


64 C IF Iprob « 3, CODE IS SET UP FOR A SHEAR FLOW CONDENSER IN A 

65 C POTASSIUM RANKINE CYCLE. 

66 C 

67 C INPUTS TO DEFINE ORBITS 

68 C 

69 C lENflg ■ FLAG TO SET ENVIRONMENT DESIRED 

70 C ■ 1, EARTH ORBIT, LEO TO GEO USES GREATER OF DEBRIS 

71 C OR METEORITE FLUX, NO DEBRIS ABOVE 2000 KB. 

72 C * 2, BEYOND EARTH ORBIT, 0.25 TO 2.00 AU 

73 C Halt « ORBIT ALTITUDE (ka) 

74 C HINCL ■ ORBIT INCLINATION ANGLE (28.5 TO 80.0 degrass, ONLY) 

75 C Rsin - DISTANCE FROM SUN (AU) 

76 C Yrlnch « YEAR IN UHICH VEHICLE IS PLACED IN 0R8IT 

77 C Tiae « MISSION DURATION (Secs) 

78 C 

79 C INPUTS TO OEFINE RADIATOR 

80 C 

81 C GAM,ARSF * PENETRATION CONSTANTS - FUNCTIONS OF THE SPECIFIC MAT'L 

82 C RHOara ■ ARMOR DENSITY (Lbs/cu-Ft) 

83 C Eara - YOUNGS MODULUS OF ARMOR (Lbe/aq-In) 

84 C Prob ■ NON-PUNCTURE PROBABILITY (0.9, 0.99, 0.999. ETC.) 

85 C Qrad » RADIATOR HEAT REJECTION RATE (KWt) 

86 C Trad ■ AVERAGE RADIATOR SURFACE TEMPERATURE (deg-R) 

87 C Xntliaes • NUMBER OF PRIMARY HEAT PIPE IN RADIATOR 

88 C Xnexpip - NUMBER OF RED UNDENT HEAT PIPES 

89 C Xlflat - HEAT PIPE EVAPORATOR LENGTH (INCHES) 

90 C Dhpipe ■ HEAT PIPE INSIDE DIAMETER (INCHES) 

91 C Ifluid > HEAT PIPE WORKING FLUID ID NUMBER 

92 C laatl * HEAT PIPE LINER MATERIAL ID NUMBER 

93 C Theta ■ CONE ANGLE FOR CONICAL RADIATOR (DEGREES) 

94 C D2rad - MANIFOLD DIAMETER FOR CONICAL RADIATOR OR MANIFOLD 

95 C LENGTH DIVIDED BY 3.141593 FOR FLAT PLATE 

96 C Thick* - RADIATOR EMISSIVITY CONTROL COATING THICKNESS (FEET) 

97 C Thickf « RADIATOR FIN THICKNESS (FEET) 

98 C Thick « HEAT PIPE WALL or LINER THICKNESS (FEET) 

99 C Ea * RADIATOR SURFACE EMISSIVITY 

100 C Alpha * RADIATOR SURFACE ABSOPTIVITY 

101 C Hap ■ RADIATOR PROJECTED AREA (TOWARD SUN) (FRACTION OF TOTAL) 

102 C HArad ■ RADIATOR ACTUAL AREA (USUALLY « 1.0) 

103 C Tkfin « THERMAL CONDUCTIVITY OF FIN MATERIAL (BTU/HR-FT-R) 

104 C Rhocoating ■ COATING MATERIAL DENSITY (LB/cu-FT) 

105 C Rhofin * FIN MATERIAL DENSITY (LB/CU-FT) 

106 C Xladiab « LENGTH OF ADIABATIC PORTION OF THE HEAT PIPE (FEET) 

107 C Xachaas * NASS OF RADIATOR DEPLOYMENT MECHANISM (LBS) 

108 C 

109 C INPUTS TO DEFINE HEAT PIPE COOLED MANIFOLD 

110 C 

111 C If lg2 - FLAG TO SET MANIFOLD WORKING FLUID 

112 C 1 > He-Xe MIXTURE 

113 C 2 ■ NaK 

114 C Naan » MANIFOLD HEIGHT (Feet) 

115 C Gap « MANIFOLD UIDTH (Feet) 

116 C Pitch - DISTANCE BETWEEN CAN (HEAT PIPES) CENTERLINES (Feet) 


F77L -EM/32 * Lahey Extended-Meaory FORTRAN 77, Version 3.01 09/28/92 14:45:36 

Page 4 

SUBROUTINE HRHAST Compiling 0ptions:/N0/N7/B/NC/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/U/NX/NZ1 
Source file Listing 


117 C XNpipes ■ NUMBER OF HEAT PIPES IN RADIATOR 

118 C XNEXpipes - NUMBER OF REDUNDENT HEAT PIPES IN RADIATOR 

119 C Dean « OUTSIDE DIAMETER OF MANIFOLD BRAZE CANS (Feet) 

120 C Dhp ■ INSIDE DIAMETER OF HEAT PIPE (Feet) 

121 C Rc « MANIFOLD BRAZE CAN INSIDE RADIUS (Feet) 

122 C Rb - BRAZE JOINT INSIDE RADIUS (Feet) 

1Z3 C Tf ■ FIN THICKNESS (Feet) 

124 C TKfin « THERMAL CONDUCTIVITY OF FIN MATERIAL (BTU/Hr-Ft-R) 

125 C TKcan » THERMAL CONDUCTIVITY OF MANIFOLD CAN MATERIAL (B/HFR) 

126 C TKbraze ■ THERMAL CONDUCTIVITY OF MANIFOLD BRAZE ALLOY (") 

127 C TKhp « THERMAL CONDUCTIVITY OF HEAT PIPE UALL MATERIAL (") 

128 C XNf ■ TOTAL NUMBER OF FINS FOR THE MANIFOLD HEIGHT 

129 C RHOcan - DENSITY OF MANIFOLD MATERIAL (Lb/cu-Ft) 

130 C RHObraze - DENSITY OF BRAZE MATERIAL (Lb/cu-Ft) 

131 C THICKman ■ MANIFOLD MATERIAL THICKNESS (Feet) 

132 C Pman ■ MANIFOLD INLET PRESSURE (PSIA) 

133 C Tman - MANIFOLD INLET TEMPERATURE (deg-R) 

134 C Man - MANIFOLD FLOURATE (LBS/HR) 

135 C tan - MANIFOLD AND RADIATOR HEAT LOAD (BTU/HR) 

136 C XMU ■ MOLECULAR UEIGTH OF MANIFOLD WORKING FLUID 

137 C 

138 C INPUTS TO DEFINE DUCTING 

139 C 

140 C XN9 » NUMBER OF 90 DEGREE ELBOWS OR EQUIVALENT IN DUCT SYSTEM 

141 C R9 * AVERAGE RADIUS FOR 90 DEGREE ELBOWS (INCHES) 

142 C Dp - INSIDE DUCT DIAMETER (INCHES) 

143 C SUMLEN « TOTAL LENGTH OF DUCT SYSTEM (INCHES) 

144 C Vpipe - GAS VELOCITY IN DUCTS (FT/SEC) 

145 C TGAS ■ GAS TEMPERATURE (deg-R) 

146 C PGAS - GAS PRESSURE (peia) 

147 C THICKP « OUCT UALL THICKNESS (INCHES) 

148 C RHOPIP - DUCT UALL DENSITY (LB/cu-FT) 

149 C THICK! - DUCT INSULATION THICKNESS (INCHES) 

150 C R HOI NS « OUCT INSULATION DENSITY (LB/cu-FT) 

151 C XMU - GAS MOLECULAR WEIGHT 

152 C DPOUCT - DUCT SYSTEM PRESSURE DROP (PSID) 

153 C DUCMAS - DUCT SYSTEM MASS (LBS) 

154 C 

155 C INPUTS TO DEFINE HEAT SINK HEAT EXCHANGER 

156 C 

157 C IHXflf - 1, THEN TUBE SIDE FLUID IS LITHIUM 

158 C IHXflg - 2, THEN TUBE SIDE FLUID IS NaK-78 

159 C ALMTD * Heat Exchanger Log Mean Temperature Difference 

160 C ODOT - Heat Rate or Duty (BTU/Hr) 

161 C UEST - INITIAL VALUE OF Uoverall (BTU/Hr-Ft-R) 

162 C (50 for GAS-GAS) 

163 C THIN ■ HOT SIDE Inlet Temperature (R) 

164 C THOUT ■ HOT SIDE Outlet Temperature (R) 

165 C TCIN ■ COLD SIDE Inlet Temperature (R) 

166 C TCOUT - COLD SIDE Outlet Teqperature (R) 

167 C UDOTS > SHELL SIDE FLUID Flowrate (Lbe/Sec) 

168 C DENSSH - SHELL MATERIAL Density (Lbe/Ft*3) 

169 C CPSF « SHELL-SIDE FLUID Specific Heat (BTU/Lb-R) 
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170 C RHOSF « SHELL-SIDE FLUID Density (Lbs/Ft A 3) 

171 C ACTS! ■ SHELL-SIDE FLUID Therael Cond (BTU/Nr-Ft-R) 

172 C VISCST » SHELL-SIDE FLUID Viscosity (Cp) 

173 C DTUBE * Outside TUBE Disaster - (Indies) 

174 C TTUBE ■ TUBE Wall Thickness (Inches) 

175 C UDOTT » TUBE -SIDE Fluid Flourete (Lbs/Sec) 

176 C AKTOBE > TUBE Well The reel Conductivity (BTU/Nr-Ft-R) 

177 C CPT ■ TUBE-SIDE FLUID Specific Nest (BTU/Lb-R) 

178 C RNOT ■ TUBE-SIDE FLUID Density (Lbe/Ft A 3) 

179 C AJCTT ■ TUBE-SIDE FLUID Theraal Cond (BTU/Hr-Ft-R) 

180 C VISCT - TUBE-SIDE FLUID Viscosity (Lb/Ft-Sec) 

181 C 

182 C INPUTS TO DEFINE THE NsK PIPING SYSTEM 

183 C 

184 C XN9 ■ NUMBER OF 90 DEGREE ELBOWS OR EOU I VALENT IN PIPE SYSTEM 

185 C R9 ■ AVERAGE RADIUS FOR 90 DEGREE ELBOWS (INCHES) 

186 C Dp - INSIDE PIPE DIAMETER (INCHES) 

187 C SUMLEN - TOTAL LENGTH OF PIPE SYSTEM (INCHES) 

188 C Vpipe - HAK VELOCITY IN PIPES (FT/SEC) 

189 C Tnek - Nak TEMPERATURE (deg-R) 

190 C Pnek ■ Nak PRESSURE (pels) 

191 C THICKP ■ PIPE HALL THICKNESS (INCHES) 

192 C RHOPIP > PIPE WALL DEHSITY (LB/CU-FT) 

193 C THICKI » PIPE INSULATION THICKNESS (INCHES) 

194 C R HOI NS « PIPE INSULATION DENSITY (LB/cu-FT) 

195 C DPPIPE - PIPE SYSTEM PRESSURE DROP (PSID) 

196 C PIPMAS - PIPE SYSTEM MASS (LBS) 

197 C 

198 C INPUTS TO DEFINE THE HaK PUMP 

199 C 

200 C PnsK ■ NAK INLET PRESSURE (PSIA) 

201 C Tnek ■ NAK INLET TEMPERATURE (deg-R) 

202 C Wnak - HAK FLOWRATE (LBS/SEC) 

203 C DPPIPE - PIPING SYSTED PRESSURE DROP (PSID) 

204 C DPHX ■ NAK SIDE HEAT EXCHANGER PRESSURE DROP (PSID) 

205 C DPMAN1F ■ NAK MANIFOLD PRESSURE DROP 

206 C 

207 C INPUTS TO DEFINE THE CONDENSER FOR A K-RANKINE CYCLE 

208 C 

209 C Ar « FLOW CROSS-SECTIONAL AREA (sq ft) 

210 C Gt > MASS FLUX (Ibs/h sq ft) 

211 C TUN * FLOW RATE PER TUBE(LIOUID PLUS VAPOR), Ibs/h 

212 C V VAPOR VELOCITY, ft/s 

213 C Y ■ LOCAL VAPOR WEIGHT FRACTION FACTOR 

214 C Oh ■ HYDRAULIC DIAMETER 

215 C Cgt » TUBESIDE FLOW REGIME PARAMETER 

216 C IF Cgt < 0.3, SHEAR-CONTROLLED LI0U10 FILM HEAT TRANSFER COEFFICIENT 

217 C Rel * CONDENSATE FILM REYNOLDS NUMBER 

218 C VCF ■ VISCOSITY CORRECTION FACTOR , (BULK /UALL)**0.14 

219 C HI ■ SHEAR-CONTROLLED LIQUID FILM HEAT TRANSFER COEFFICIENT 

220 C Xtt • MARTINELLI PARAMETER, FORM FOR BOTH TURBULENT PHASES 

221 C Csh ■ CORRELATION FUNCTION FOR SHEAR -CONTROLLED FLOW NT A DP 

222 C Ftp > SHEAR-CONTROLLED FLOW TWO PHASE HEAT TRANSFER FACTOR 
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223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 
261 
262 

263 

264 

265 

266 

267 

268 

269 

270 

271 

272 

273 

274 

275 


C Hs » SHEAR -CONTROLLED LIQUID FILM HEAT TRANSFER COEFFICIENT 
C DPn ■ MOMENTUM PRESSURE DROP (psU) 

C Rev « VAPOR REYNOLDS NUTCER 
C DPI ■ LIQUID PRESSURE DROP (psia) 

C DPv * VAPOR PRESSURE DROP (psie) 

C FLF « TWO PHASE FRICTION LOSS FACTORS 
C DPf * FRICTION PRESSURE DROP (psis) 

C FF ■ FRICTION FACTOR 

C ETA « SURFACE ROUGHNESS, ft 

C P « SATURATION PRESSURE <psia) 

C DL ■ LIQUID DENSITY (Ibai/cu ft) 

C VF ■ LIQUID SPECIFIC VOLINS <cu ft/lbai) 

C NFG ■ ENTHALPY OF VAPORIZATION (Btu/lbn) 

C HGO ■ REFERENCE ENTHALPY (Btu/lbn) 

C HG * ENTHALPY VAPOR STATE (Btu/lbn) 

C HF - ENTHALPY LIQUID STATE (Btu/lbn) 

C SFG * ENTROPY OF VAPORIZATION (Btu/lbn R) 

C SCO - REFERENCE ENTROPY STATE (Btu/lbn R) 

C SG * ENTROPY VAPOR STATE (Btu/lbn R) 

C SF « ENTROPY LIQUID STATE (Btu/lbn R) 

C VG « VAPOR SPECIFIC VOLUME (cu ft/lbn) 

C DV ■ VAPOR DENSITY (lbm/cu ft) 

C Cl « LIQUID HEAT CAPACITY (Btu/lbn) 

C VL ■ LIQUID VISCOSITY (Ibn/ft-h) 

C XKL ■ LIQUID THERMAL CONDUCTIVITY (BtU/h-ft-R) 

C Pr ■ LIQUID PRANDTL NUMBER 
C W « VAPOR VISCOSITY (lbn/ft-h) 

C XJCV « VAPOR THERMAL CONDUCTIVITY (Btu/h-ft-R) 

C 

IF (Iselec.EQ.1) THEN 

00 TO 1000 

ELSE 

00 TO 10 
ENDIF 

10 GO TO (100,200,300), Iprob 
C INPUTS REQUIRED TO DEFINE ORBIT 
C 

100 READ (5,*) IENf lfl,Halt,HINCL,R*un 
READ (5,*) Yrlnch,Tine 
C 

C INPUTS REQUIRED TO DEFINE RADIATOR 
C 

READ (5,*) GAM, ARSF, Earn, PROB 
READ (5,*) CONFIG,Xntubea,Xnexpip,Xlflat 
READ (5,*) Dhpipe, 1 fluid, Inat l, Theta 
READ (5,*) D2rad,Thickn,Thickf, Thick 
READ (5,*) En, Alpha, Hep, HAred 
READ (5,*) Tkf1n,Rhocoating,Rhof1n,RH0am 
READ (5,*) Xladiab,Xnchnas 
C 

C INPUTS REQUIRED TO DEFINE HEAT PIPE MANIFOLD 
C 

READ (5,*) If lg2,Hnan, Gap, Pitch 
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276 READ (5,*) Dcan,Dhp,Rc,Rb 

277 READ (5,*) Tf,TKftn,TICcan,TKbraze 

278 READ (5,*) TKhp,XNf .Xaw.RHOcan 

279 READ (5,*) RHObraze,THICKaan,Uaan 

280 C 

281 C INPUTS REQUIRED TO DEFINE DUCTING 

282 C 

283 READ <5,*> XN9,R9,Dp,SUNLEN 

284 READ (5,*) THICKP,RHOPIP,THICXI,RHOINS 

285 C 

286 Cam ■ PI *02 rad 

287 XNpipes ■ Xntifces 

288 XNexpipes ■ Xnexpip 

289 C 

290 CALL HPMANOf luid,If lB2,Caan,HBan,Gap,Pitch,Dcan,Dhp,Rc,Rb,Tf,TKfi 

291 Sn,TKcan,TKbraze,TKhp,XNf,XNpipes,XNaxpipes,XaM,Pin,Tin,RNOcan,RH 

292 GObraze,THICXaan,Waan,Qrad,XMANaas,DPuen,DTf i la.XHNMAN) 

293 DTaan ■ Tin-Tout 

294 CALL TMEAN<Tin,DTaan,DTfila,Trad> 

295 C 

296 CALL HRRAD(Qrad,Trad,Xnt«iies,Xnexpip,Xlflat,Dhpipe,Ifluid, I eat l, 

297 GTheta,D2rad,Thicka,Thickf , Thick, Ea, lENf lg. Halt, HINCL,Rstsi,Yr inch, 

298 8Alpha,Hap,HArad,TKfin,Rhocoatin8,Rhofin,RH0ans,Xladiab,C0NFIG, 

299 GXachaas, PROS, GAM, ARSF,Eara,Tiae,Qrajectad,Thickf2,Thicka2, 

300 GAradiator,Aradeffect,Wthick2,Xnart2,Artid2, 

301 GArtwal l2,Th1ck2,Xlevap2,Xladi2,Xlspec2,Xttot2,Xapipas,XSrfluid, 

302 GXafin,Xacoat1ng,Xaaruor,Xaaraorid,Xstructure, 

303 GXnatradwsst2,Uxl2) 

304 C 

305 Apipe ■ <PI*(Dp**2.0»/<4.0*144.0) 

306 CALL HEXEPR(XMW,Pin,Tin,Gea,CP,RHOgas,AMU,ATK,PR) 

307 Vpipe > Waan/(RHOoas*Apipe) 

308 CALL HR0UCT(XN9,R9,Dp,SUMLEN,Vpipa,T1n,P1n,TNICKP,RH0PIP, 

309 GTHICKI ,RHOINS,XMU,DPDUCT,DUCMAS) 

310 C 

311 WRITE (6,*) '*** HEAT REJECTION SYSTEM FOR A BRATTON CYCLE SYSTEM 

312 GIN WHICH CYCLE WASTE HEAT IS REJECTED DIRECTLY FROM THE CYCLE WORK 

313 GING FLUID IN A HEAT PIPE COOLED GAS MANIFOLD ***' 

314 WRITE <6,*> ' ' 

315 CALL RADPRT(Qrad,Trad,Xntubes,Xnexpip,Xlflat,Ohplpe,IfLuid,I 

316 taut l, Theta, D2rad, Thi cka,Thickf, Thick, Ea, 

317 4Alpha,Hap,HArad,TKfin,Rhocoat1ns,Rhof in,RHOana,Xladiab, 

318 GXaehaas, PROS, GAM, ARSF,Eara,Tiae,Qrejactad,Thickf2,Thicku2, 

319 GAradiator,Aradeffact,Wthick2,Xnart2,Artid2, 

320 GArtwaU2,Thick2,Xlevap2,Xladi2,Xlspac2,Xltot2,Xapipes,XDftuid, 

321 GXaf in,Xacoating,Xaanaor,Xaaraorid,Xstructure, 

322 GXnetradiasst2) 

323 CALL ORBPRT(IEMflB,Halt,H!MCL,Rsw,Yrlnch) 

324 C 

325 CALL HMNPRT(Iflg2,Haan,Gap,Pitch,XNpipes,Xnexpipes,Dcan, 

326 GDhp,Rc,Rb,Tf,TKfin,TKcan,TKbraze,TKIw>,XNf,RHOcan,RHObraze, 

327 GTHlCKaan,Pin,Tin,Wman,Qrad,XMW,XMANaas,DPaan,DTfila,XNNMAN) 
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328 C 

329 CALL 0UCPRT(XN9,R9,0p,SUNLEN,Vpipe,T1n,P1n,THICXP,RH0PIP, 

330 &THICXI ,RHOINS,XHN,DPDUCT,DUCHAS) 

331 C 

332 URITE (6,*) 'NASS SUNNARY FOR DIRECT BRATTON SYSTEN' 

333 UNITE (6,*) ' 1 

334 WRITE (6,*) 'NEAT PIPE COOLED GAS NANIFOLD NASS (Lbs) ■' ,XNNNAN 

335 UNITE (6,*) 'NANI FOLD DUCTING NASS (LBS) »',DUCNAS 

336 URITE (6,*) 'RADIATOR NASS (LBS) ■' ,Xnetradaaast2 

337 XNSYST « XNNNAN ♦ DUCNAS ♦ Xnetradaaeet2 

338 URITE (6,*) • ' 

339 URITE (6,*) 'DIRECT BRATTON SYSTEN NASS (LBS) XNSYST 

340 URITE (6,*) ' ' 

341 STOP 

342 C 

343 C CASE WHERE A SECONDARY MAX LOOP IS USED TO TRANSFER NEAT BETWEEN 

344 C THE CYCLE UORKING FLUID AND THE HEAT PIPE RADIATOR 

345 C 

346 C INPUTS REQUIRED TO DEFINE ORBIT 

347 C 

348 200 READ (5,*) IENf l 9 ,Helt,HINCl,Rsun 

349 READ (5,*) Yrlneh.Tiu 

350 C 

351 C INPUTS REQUIRED TO DEFINE RADIATOR 

352 C 

353 READ (5,*) GAN.ARSF.Eana.PROB 

354 READ (5,*) CONFIG.Xntiiws.XnexpIp.Xlf let 

355 READ (5,*) Ohplpe.lfluld.lutl, Theta 

356 READ (5,*) D2red,Thictai,Th1ckf, Thick 

357 READ (5,*) Ee.Alpha.Hap.HArad 

358 READ (5,*) Tkf in.Rhocoating.Rhof tn.RHOana 

359 READ (5,*) Xlediab.Xachaes 

360 C 

361 C INPUTS REQUIRED TO DEFINE HEAT SINK HEAT EXCHANGER 

362 C 

363 READ (5,*) IHXfl9.UEST,TCIN,TC0UT 

364 READ (5.*) UDOTS.ANUS.TINS.DENINS 

365 READ (5,*) DENSSH,DTU8E,PR,TTUBE 

366 READ (5,*) ANPLATES.UDOTT , AKTUBE 

367 C 

368 C INPUTS REQUIRED TO DEFINE HEAT PIPE NANI FOLD 

369 C 

370 READ (5,*) If lg2.Ha«n,Gap,Pitch 

371 READ (5,*) Dcen,0hp,Rc,Rb 

372 READ (5,*) Tf ,TKf In.TKcan.TKbraze 

373 READ (5,*) TKhp.XNf .Xu.RHOean 

374 READ (5,*) RHObraze.THICKMn.UUn 

375 C 

376 READ (5,») XN9,R9,Dp.SUHLEN 

377 READ (5,*) THICKP.RHOPIP.THICKI.RHOINS 

378 C 

379 Cam « PI*D2rad 



F 771 -EM/32 - Lahey Extended-Mea»ry FORTRAN 77, Version 3.01 09/28/92 14:45:36 

Page 9 

SUBROUTINE HRMAST COMpiling 0ptiona:/N0/N7/B/NC/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/$/NT/W/NX/NZ1 
Source file Listing 


380 XNpipes « Xnttfces 

381 XNexpipes ■ Xnexpip 

382 THIN ■ Tin 

383 THOUT - Tout 

384 PHOT > Pin 

385 QDOT ■ Qrad 

386 AIMS ■ Xaw 

387 C 

388 CALL HRSHEL( I HXflg,UE ST, THIN, THOUT, PHOT, TCIN,TCOUT ,IDOTS, AMI 

389 IS,TINS,DEN1NS,DENSSH,DTUBE,PR,TTUBE,ANPLATES,WD0TT,AKTUBE,Q 

390 CD0T,DPSHELL,ANTUBES,DPTUBE,D0TL2,ALSHEL,AMSHELL,ANPLATES, 

391 tANTUBES,AMINSUL,AMHEADS,AMSTRT,ANETMASS,XMNHEX,HSHELL,AFRIC,UNEU, 

392 8RETUBE,THC,AMTSHT) 

393 C 

394 CALL HPMAN(Ifluid,Iflg2,Caan,Naan,Gap,Pitch,Dcan,Dhp,Rc,Rb,Tf,TKfi 

395 tn,TKcan,TKbraze,TKhp,XNf .XNpipes, XNexpipes, XM,Pin,T1n,RHOcan,RH 

396 IObraze,THlCKMn,WMan,Qrad,XMANaas,DPaan,DTf i Ib,XMNMAN) 

397 C 

398 Apipe * <Pl*(DpP*2.0))/(4. 0*144.0) 

399 CALL XNAKPR(Tln,RHONAK,CP,VIS,TK) 

400 Vpipe * UMan/(3600.0*RH0NAK*Apipe) 

401 Tnak * Tin 

402 Pnak « Pin 

403 CALL HRPIPE(XN9,R9,Dp,SLMLEN,Vpipe,Tnak,Pnak,TNICKP,RH0PIP,THICKI, 

404 lRHOINS,DPPIPE,PIPnak,PIPMAS) 

405 C 

406 Unak » Uaan 

407 OPHX ■ DPTUBE 

408 0 PHAM IF - DPaen 

409 CALL PUMP(Tnak,ttoak,DPPIPE,DPHX,DPMANIF,DPLOOP,Phyd,XMPUHP) 

410 C 

411 CALL VACMAS(Tnak,XMNPIP,XMNMAN,XMNHEX,XNNVAC,XNVAC) 

412 C 

413 DTaan ■ Tin-Tout 

414 CALL THEAN(Tin,DT*an,DTfila,Trad) 

415 CALL HRRAD(Qrad,Trad,Xntubes,Xnexpip,Xlflat,Oliplpe,I«luid, laatl, 

416 8Theta,D2rad,ThickM,Thickf,Thick,Ea,IENf lg,Halt,NINCL,Raun,Yrlnch, 

417 &Alpha,Hap,HArad,TKfin,Rhocoating,Rhofin,RH0ar*,Xladfab,C0NFI6, 

418 8XMchMS,PROB,GAH,ARSF,Eana,Tiae,Orejectad,Thickf2,Thicka2, 

419 SAradiator,Aradeffect,Uthiek2,Xnart2,Artid2, 

420 SArtHaU2,Thick2,Xlevap2,Xladi2,Xlspec2,Xltot2,Xapipes,Xafluid, 

421 SXarf i n, Xacoat ing.Xaaraor, Xaanaor id, Xstructure, 

422 &Xnetradaasst2,Uxl2) 

423 C 

424 WRITE (6,*) '**• NEAT REJECTION SYSTEM FOR A BRATTON CYCLE SYSTEM 

425 SIN WHICH CYCLE WASTE NEAT IS REJECTED TO A PIMPED NaK LOOP FROM 

426 4THE CYCLE WORKING FLUID TO A HEAT PIPE COOLED GAS MANIFOLD ***' 

427 WRITE (6,*) ' ' 

428 CALL RADPRT(Qrad,Trad,Xntifces,Xnexpip,Xlflat,Dhpipe,lfluid,I 

429 l«atl , Theta, D2red, Thicloa, Thickf , Thick, Ea, 

430 Ulpha,Hap,HArad,TKf in,Rhocoating,Rhofin,RHOar*,Xladiab, 

431 SXachMMS, PROS, GAM, ARSF,Earai,TiM,Qrejected,Thickf2,Thicka2, 

432 SAradiator,Aradeffect,Wthick2,Xnart2,Art1d2, 
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433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 

466 

467 

468 

469 

470 

471 

472 

473 

474 

475 

476 

477 

478 

479 

480 

481 

482 

483 

484 


lArtua U 2 , Th i ck2 , X l evap2, X lad! 2 , X l apec2 , X l tot2, Xapi pes, Xaf luid, 
&Xafin,Xacoating,Xaaraor,Xaaraorid,Xstructure, 

SXnetradaasst2) 

CALL ORBPRTdENf lg,Halt,HINCL,Rsun,Yrlneh) 

CALL HMNPRT(Iflg2,Haan,Gap,Pitch,XNpipes,Xnexpipes,Dcan, 

IDhp, Rc , Rb, Tf , TKf i n, TKcan , TKbraze, TKhp, XNf , RHOcan, RHObraze, 
iTHICKaan,Pin,Tin,UMen,Qrad,XMU,XMANaas,DPaen,DTf i la,XMNHAN) 

WRITE (6,*) ' * 


C 


CALL PIPPRT(XN9,R9,Dp,SUHLEN,Vpipe,Tnak,Pnalc,THICKP,RH0PiP, 
8THICKI,RH0INS,DPPIPE,PIPNAK,PIPMAS) 

WRITE (6,*) ' ' 

CALL KSHXPTdKXf lg,QDOT,THlN,THOUT,TCIN,TCOUT,UDOTS,DENSSH, 

SO TUBE , TTUBE , WDOTT , AKTUBE , DPS HELL , AM TUBES , DPTUBE , OOTL2 , ALSHEL , 
1AMSHELL , AMP LATE $ , AKTUBE $ , AM ET NASS , XMNttEX , HSHELL , AFR I C , UNEU, RETUBE , 
STHC , AN I NSUL , AM HEADS , AMTSHT , AMSTRT ) 

WRITE (6,*) ' ' 

CALL PHPPRT(Tln, WDOTT, DPPIPE, DPTUBE, DPMAN,DPLOOP,Phyd, 

&XMPUMP) 

CALL VACPRT(XMNvac,XMVAC) 


WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

XMSYST 


(4,*) 

( 4 ,*) 

<4 f *> 

C4,*> 

(4,*) 

<4,*> 

(4,*) 

(4,*) 

< 6 ,*) 

(4,*) 

(4,*) 


'NASS SUMMARY FOR INDIRECT BRAYTON SYSTEM' 

t t 

'HEAT SINK HEAT EXCHANGER NASS (LBS) (DRY) *' , ANETNASS 
'HEAT EXCHANGER NaK MASS (LBS) «',XMNHEX 
'NaK PIPING SYSTEM MASS (LBS) (DRY) *',P1PMAS 
'MASS OF NaK IN PIPING SYSTEM (LBS) «',P1PNAK 
'MASS OF EM PUMP (LBS) (WET) «',XMPUNP 
'HEAT PIPE/MaK MANIFOLD MASS (Lbe) (DRY) *',XMANaas 
'NASS OF NaK IN MANIFOLD (LBS) «',XMNNAN 
'EXPANSION COMPENSATOR HASS (LBS) (DRY) «',XMVAC 
'MASS OF NaK IN EXPANSION COMPENSATOR (LBS) *\XMNVAC 
'RADIATOR MASS (LBS) »' ,Xnetradassst2 


- ANETNASS + XMNHEX ♦ PIPMAS ♦ PIPNAK ♦ XMPUMP ♦ 


l ♦ XMNMAN ♦ XMVAC ♦ XMNVAC ♦ Xnetractaesst2 
WRITE (6,*) ' ' 

WRITE (6,*) 'INDIRECT BRAYTON SYSTEM MASS (LBS) (WET) XMSYST 
WRITE (6,*) 

STOP 

C 

C CASE WHERE A DIRECT CONDENSING SHEAR FLOW CONDENSER IS USED TO 
C REJECT HEAT FROM A RANK1NE CYCLE 
C 

C INPUTS REQUIRED TO DEFINE ORBIT 
C 

300 READ (5,*) IENflg, Halt, HINCL, Raw 
READ (5,*) Yrlnch,T1ae 
C 
C 
C 


INPUTS REQUIRED TO DEFINE RADIATOR 
READ (5,*) GAM, ARSF, Ear*, PROS 
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485 READ (5,*) CONFIG, Xntubes,Xnexpip,Xlf let 

486 READ <5,») Dhpipe.If luid, last l, Theta 

487 READ (5,*) D2rad,Thicta»,Thickf .Thick 

488 READ (5,*) Ea,Alpha,Hap,HArad 

489 READ (5,*) Tkfin,Rhocoating,Rhofin,RHOara 

490 READ <5,*) Xladiab.Xachaas 

491 C 

492 C INPUTS REQUIRED TO DEFINE CONDENSER 

493 C 

494 READ (5,*) Caen, Mean, Gap, THICK ins 

495 READ (5,*) RHOins,Tout,Tbraze,TKcan 

496 READ (5,*) TKbraze,TKhp,Pin,Tin 

497 READ (5,*} Xin,RHOpip,RHOcan,RHObraze 

498 READ (5,*> THICKaan,Thtpip,Man 

499 C 

500 XNpipes ■ Xntitoes 

501 XNcxpipes » Xnexpip 

502 CALL CONMAN(Ifluid,QMn,HMan,Gap,THICIC1na,RNOinB,Tout, 

503 STbraze,TKcan,TKbraze,TKhp,XNpipes,XNexpipes,Pin,T1n,Xin,RN0plp, 

504 SRHOcan, RHObraze, THI tT aan,Thtpip,W*an,Qrad,X H ANaa t ,P P aa n ,DTFsup, 

505 SAr,Gt,V,Dh,Cgt,Rel,Hl,Xtt,Rev, 

506 SDTFcon.DTFsifc.DTfila) 

507 C 

508 DTaan ■ Tin-Tout 

509 CALL TNEAN(Tin,DTnan,DTfilN,Trad) 

510 C 

511 CALL HRRAD(Qrad,Trad,Xntubes,Xnexpip,Xlflat,Dhpipa,Ifluid,lMtl, 

512 STheta,D2rad,Thicka,Thickf,Thick,Ea,IENflg,Nalt,NINCL,Rsun,Yrlnch, 

513 tAlpha,Hap,KArad,TKf in, Rhoc oat ing.Rhof in, RHOarsi.Xladiab, CONFIG, 

514 ZJUachaMS, PROS, GAM, ARSF, Eana.Tiae.Qrej acted, Thickf 2, Thicka2, 

515 SAradiator,Aradeffect,Wthick2,Xnart2,Artid2, 

516 SArtual l2,Thick2,Xlevap2,Xladi2,Xlspec2.Xltot2.Xapipas.Xlrf luid. 

517 SXafin.Xacoating.XMraor.Xaaraorid.Xstructure, 

518 AXnetradaasst2,Wxl2) 

519 C 

520 WRITE (6,*) '*** HEAT REJECTION SYSTEM FOR A RANK I HE CYCLE SYSTEM 

521 SIN WHICH CYCLE WASTE HEAT IS REJECTED DIRECTLY FROM THE CYCLE WORK 

522 SING FLUID IN A HEAT PIPE COOLED CONDENSER ***' 

523 WRITE (6,*) * ' 

524 CALL RADPRT (Qrad, T red, Xntubes .Xnexpip, X l f lat.Dhpi pa, I f luid, I 

525 laatl, Theta,D2rad, Thick*, Thickf,Thick,Ea, 

526 SAlpha,Hap,HArad,TKfin,Rhocoating,Rhofin,RNOar*,Xladiab, 

527 SXachoas.PROB, GAM, ARSF, Ears, Tine, Qrejacted,Thickf2,Thick>2, 

528 SAradiator,Aradeffect,Wthick2,Xnart2,Artid2, 

529 SArtuall2,Thick2,Xlevap2,Xladi2,Xlspec2,Xltot2,Xapipes,Xafluid, 

530 SX*fin,X*coating,X*araor,X*ar*orid,Xstructure, 

531 SXnetradeasst2) 

532 CALL ORBPRTOENflg, Halt, HINCL.Rsun.Yr Inch) 

533 C 

534 CALL CONPRT(Ar,Gt,V,Dh,Cgt,Rel,Nl,Xtt,Rev, 

535 Slfluid,C*an,N*an,Gap,THICKins,RHOine,Tout, 

536 STbraze,TKcan,TKbraze,TKhp,XNpipes,XHexpipes,Pin,Tin,Xin,RHOpip, 

537 SRHOcan,RHObraze,TNICK*an,Thtpip,W*an,Qred,XNAN*es,DP*an, 
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538 BDTfila) 

539 C 

540 C 

541 URITE (6,*) 'NASS SUNNART FOR CONDENSING RAN LINE SVSTEN' 

542 URITE (6,*) ' ' 

543 URITE <6,*> 'HEAT PIPE COOLED CONDENSER NASS (Lbs) -'.XMANaas 

544 URITE (6,*) 'RADIATOR NASS (LBS) »',Xnetratoasst2 

545 XNSYST ■ XNANaas ♦ Xnetratoasst2 

546 URITE (6,*) ' ' 

547 URITE (6,*) 'CONDENSING RANKINE SYSTEM NASS (LBS) «' .XNSYST 

548 URITE (6,*) ' ' 

549 STOP 

550 C 

551 1000 URITE (6,*) 'THE SINPLIFIED DATA INPUT OPTION HAS BEEN SELECTED' 

552 C 

553 C READ INPUTS TO DEFINE ORBITS 

554 C IF IENflg - 0, THEN USE DEFAULTS OF: 

555 C Halt - 1000.0 to 

556 C HINCL ■ 30.0 

557 C tun >1.0 

558 C Yrlnch « 2000.0 

559 C Tiae - 10.0*365.0*24.0*3600.0 

560 1001 READ (5,*) IENflg, Halt, HINCL, Raun 

561 READ (S,*) Yrlnch, Tiae 

562 IF (IENflg. EQ.O) THEN 

563 Halt - 1000.0 

564 HINCL - 30.0 

565 Run ■ 1.0 

566 Yrlnch - 2000.0 

567 Tiae - 10.0*365.0*24.0*3600.0 

568 IENflg » 1 

569 ELSE 

570 Halt * Halt 

571 ENDIF 

572 C READ IN DATA TO DEFINE PROBLEM 

573 READ (5,*) Pin,Tin,tow,Tout 

574 READ (5,*) Brad 

575 C 

576 C Pin - CYCLE WORKING FLUID INLET PRESSURE (PSIA) 

577 C Tin « CYCLE WORKING FLUID INLET TEMPERATURE (deg-R) 

578 C tow * CYCLE WORKING FLUID MOLECULAR WEIGHT (NW) 

579 C Tout - CYCLE WORKING FLUID OUTLET TEMPERATURE (deg-R) 

580 C Orad > CYCLE TOTAL HEAT REJECTION RATE REQUIRED (KWt) 

581 C Tiae - MISSION TINE (SECONDS) 

582 C 

583 C CODE WILL ATTEMPT TO ESTIMATE THE VALUES REQUIRED TO RUN THE FULL 

584 C CASE WHICH CAN BE USED AS THE STARTING POINT FOR A FULL ANALYSIS 

585 C 

586 IF (lprob.EQ.1) THEN 

587 GO TO 1005 

588 ELSE 

589 GO TO 1200 
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END IF 
C 

C SET MANIFOLD GAS VELOCITY TO DESIGN MANIFOLD 
C 

1005 Vgesawn > 35.0 
Iflg2 “ 1 
DTasn ■ Tin-Tout 
DTfila ■ 50.0 

CALL TMEAN(Tin t DT«sn,DTfil»,Tber> 

CALL RADFLG(Tin,If luid,lMtl) 

Alpha » 0.5 
Hap > 1.0 
HArad * 2.0 

C UNITE <6,*) ' VgasMan, 1 f lg2,DTaen,DTf i las' , Vgasaan, I f lg2,DT*an,DTf i 

C 41m 

C URITE (6,*) »T1n,Tbar,Iflu1d f lMBtl«'.,Tin,Tbar,Ifluid,lMatl 

CALL HRTSNKOENf lg,Halt,HINCL,Rsun,Yrlnch,Alpha,Hap,HArad,Ts1nk) 

C URITE <6,*) 'Alpha, Hap,HArad,T»ink«',Alpha,Map,HArad f Tsink 

Em * 0.8 

Etarad - 0.65+(0.0002*Tber) 

Aradest ■ <3413.0*Orad)/(0.1713E-08*EM»Etarad*((Tbar**4.0>-(Ts1nk» 

4*4. 0>>) 

factual > 0.5*Aradttt 

C WRITE (6,*) 'E»,Etarad f Aradeat,Aactuei»' # E«,Etarad,Aradest,Aactual 

DUNLen - 20.0 
Width * Aactual/DUMlen 
Onan * Width 

Xntubea * (12.0*Width)/3.5 

C WRITE (6,*) ' DUM l an, Uidth,C»an # Xntubea*' ,DUMl en, Width, Qaan.Xntiijes 
Xnexpip * 0.1*Xntubea 
Pitch « 3.5/12.0 
Dean * 0.090333 

C WRITE (6,*) 'Xnexpip,Pitch,DcarF # , Xnexpip, Pitch, Dean 

Dhp * 0.083333 

Rc - 0.043500 
Rb « 0.043333 
Tf * 0.000833 

C WRITE <6,*> 'Dhp,Rc,Rb,Tf«' f Dhp,Rc,Rb,Tf 

TICfin ■ 112.0 
TICcan « 10.0 
TICbraze « 28.0 
TO ■ T1n/1 .8-273.2 

C WRITE (6,*) aKfin # TKcan # TKbraza f TO» r f TICfin,TKcan # TICbraxe,TO 

CALL Wallprop(lMtl,TO,WaUdan f Tcwall) 

TKhp * 242.0*Tci«ll 
XNpipaa « Xntubea 

C WRITE <6,*) # WaUden,Tcwall,TKhp* f ,Wallden,Tcwall,TIChp 

XNexpipes * Xnexpip 
XMU * Xaw 
Pam * Pin 

C WRITE <6,*> 'XNpipea,XNexpipea,XMy,P«in»' i XNpipes,XMexp1pes,XMU,P« 

C Aan 

Taan ■ Tin 
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RHOcan ■ 505.0 
RHObraze * 535.0 

THICKiaan « 0.005208 + (0.000052*Pin) 

C WRITE (6,*) *T«an,RHOcan,RHObraze,THICttwi»',T«an,RHOcan,RHObraze, 

C fcTHICttaan 

CALL HEXEPR(XMW,P*an,T*an,aae,Cp,Rho,A*u,Tcond,Pr) 

C WRITE (6,*) 'G*a,Cp,Rho,Asa^',Gae,Cp,Rho,A*u 

Vnn ■ (3413.0*«rad)/(3600.0*Cp*(T1n*Tout)) 

Gap - (6.0*(12.0*0can))/12.0 

Maan ■ 1.50 

XNf * naan*12. 0*10.0 

C WRITE (6,*) 'Tcond,Pr,W*an,Gap*' ,Tcond,Pr,Uaan, Gap 

1008 Aialn « (Gap* naan) - (Dcan*H*an) 

V*an « W*an/(Rho*A*in) 

ERRORS ■ (Vgaaaan/V*an)-1 .0 
IF (ERRORS. GT. 0.1) THEN 
ERR0R3 - 0.1 
ELSE 

ERR0R3-ERR0R3 
END IF 

Hi aan > naan*(1.O+(0.8*ABS(ERR0R3))) 

XNf « naan*12. 0*10.0 

C WRITE (6,*) 'ERR0R3 ERRORS 

C WRITE (6,*) 'naan «',naan 

IF (ABS(ERR0R3).GT .0.0001) THEN 

GO TO 1008 

ELSE 

GO TO 1009 
ENDIF 

1009 CONTINUE 

C WRITE (6,*) 'INPUTS FOR HPMAN FROM LINE 598' 

C WRITE (6,*) 'Ifluid,Iflg2,(nan.naan»',Ifluid.Iflg2,DBBn,nBBn 

C WRITE (6,*) 'Gap,P1tch,Dcan,Dhp«',Gap,Pitch,Dcan,Dhp 

C WRITE (6,*) 'Rc,Rb,Tf,TKf1n«',Rc,Rb,Tf,TICfin 

C WRITE (6,*) 'TKcan,TKbraza,TKhp,Xnf«',TKean,TKbraza,TKhp,Xnf 

C WRITE (6,*) 'XNpipe*,XNexpip#s,X**,Pin«',XNpip*e,XNexpip*s,X*M,P1n 

C WRITE (6,*) 'Tin,RNOcan,RHObcaze.THIDC*an-'.Tin,RHOcan.RHObrai*.TH 

C GICKaan 

r ubitf fA riw Qrftc^'.UMn.Qrad 

CALL HPMAN(If luid)lf lQ2,Caan,naan,Gap,P1tch,Dcan,Dhp,Rc,Rb,Tf,T1Cf1 
tn,TKcan,TKbraze,TKhp,XNf,XNp1pas,XNaxpipes.Xaai,P1n,T1n.RHOcan,RH 
GObraza.THICK*an,Wan,Qrad.XHAH*a a ,DP*an.PTfi lai.XMNMAN) 

Grad ■ Orad 
Trad * Tbar 

Xntubes * (12.0*Width)/3.5 
Xnaxpip * 0.1*Xntubes 
Xlflat ■ H*en*12.0 
Dhpipe >1.0 

CALL RADFLG(Tbar,If luidflaatl) 

1100 THETA > 0.0 

D2rad - Width/Pl 
Thick* - 0.0 
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695 Thickf > 0.050/12.0 

696 Thick * 0.003/12.0 

697 Ea ■ 0.8 

698 Tkfin > 49.1 

699 Rhocosting * 0.0 

700 Rhofin » 113.0 

701 RHOera * 113.0 

702 Xladiab - 0.0 

703 Xachaes « 0.0 

704 PROS - 0.99 

705 GAN >1.70 

706 ARSF > 1.70 

707 Eera > 10000000.0 

708 CONFIG >1.0 

709 CALL TNEAN(Tin,DTasn,DTfila,Tred) 

710 CALL NRRAD(Qrad,Tred,XntiA>es,Xnexp1p,Xlflat,Dhpipe,IfUiid,Iastl, 

711 GThete,D2rad,Thicka,Thickf,Thick,Ea,IENf Ig, Halt, NINCL,Rsw»,Yr Inch, 

712 GAlpha,Hap,HArad,TKfin,Rhocoating,Rhofin,RHOara,Xladiab,CONFIG, 

713 GXaehaas,PR0B,GAM,ARSF,Eara,Tiae,0rejected,Thiekf2,Thicka2, 

714 GAradiator,Aradeffact,Uthick2,Xnart2,Artid2, 

715 GArtwall2,Thick2,Xlevap2,Xladi2,Xlspec2,Xltot2,Xapipes,Xafluid, 

716 GXafin,Xacoeting,Xaereor,Xaeraorid,Xstructure, 

717 AXnetre<hMsst2,Uxl2) 

718 C 

719 XN9 - 12.0 

720 Vpipe > 100.0 

721 PGAS - Pin 

722 TGAS - Tin 

723 CALL HEXEPR(XMU,PGAS,TGAS,GMA,CP,RHOges,ANU,AK,PR} 

724 Dp > 12.0*SQRT<(1.27324*Waan)/<RHOgas*Vpipe)) 

725 C MITE (6,*) 'RHOgas >',RHOges 

726 C UNITE (6,*) 'Dp >',Dp 

727 SUMLEN > 12.0*Dp 

728 THICKP ■ PGAS*Dp/(2. 0*5000.0) 

729 IF (THICKP. GT. 0.03125) THEN 

730 THICKP ■ THICKP 

731 ELSE 

732 THICKP ■ 0.03125 

733 END IF 

734 THICKI - 4.0 

735 RHOPIP « 505.0 

736 RHOINS > 16.0 

737 R9 • 4.0*Dp 

738 CALL HRDUCT(XN9,R9,Dp,SUNLEN,Vpipe,TGAS,PGAS,THICKP,RH0PIP, 

739 8TH1CK1 , RHOINS, XIW.DPOUCT .DUCNAS) 

740 C 

741 C 

742 WRITE (6,*) '*** HEAT REJECTION SYSTEM FOR A BRATTON CYCLE SYSTEM 

743 GIN WHICH CYCLE WASTE HEAT IS REJECTED DIRECTLY FROM THE CYCLE WORK 

744 GING FLUID IN A HEAT PIPE COOLED GAS MANIFOLD ***' 

745 WRITE (6,*) ' ' 

746 WRITE (6,*) 'INPUT FOR OPTION NUMBER 1' 
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747 WRITE <6,«) * ' 

748 WRITE <6,*) 'INPUT FOLLOWING DATA INTO FILE *RADAT* TO RUN OPT #1' 

749 WRITE <6,*) ' ' 

750 C DEFINE ORBIT 

751 WRITE (6,*) lENf lg,Halt,HINCL,Rsw 

752 WRITE (6,*) Yrlnch.Tim 

753 WRITE (6,*) ' ' 

754 C DEFINE RADIATOR 

755 WRITE (6,*) GAM,ARSF,Eera,PR06 

756 WRITE (6,*) CONFIG,XntUbes,Xnexpip,Xlf lat 

757 WRITE (6,*) Dhp1pe,Iflu1d ( Iaetl, Theta 

758 WRITE (6,*) D2rad,Thiek*,Thiekf, Thick 

759 WRITE (6,*) Ea, Alpha, Hap, HArad 

760 WRITE (6,*) Tkf in.Rhocoating.Rhof in.RHOara 

761 WRITE (6,*) Xladiab.Xachaas 

762 WRITE (6,*) ' ' 

763 C DEFINE HEAT PIPE NANI FOLD 

764 WRITE (6,*) If lg2,Haan,Gap,Pitch 

765 WRITE (6,*) Dcan,Dhp,Rc,Rb 

766 WRITE (6,*) Tf,TKfin,TKcan,TKbraie 

767 WRITE (6,*) TRhp.XNf ,Xm,RHOcan 

768 WRITE (6,*) RHObraze.THICXaan.WBan 

769 WRITE (6,*) ' * 

770 C DEFINE DUCTING 

771 WRITE (6,*) XN9,R9,Dp,SUHLEN 

772 WRITE <6,*) THICKP,RHOP1P,THICKI,RHOINS 

773 WRITE <6,*> ' ' 

774 WRITE (6,*) 'C IENf lg,Halt,H!HCL,Rsun' 

775 WRITE (6,*> 'C Yrlnch.Tiae' 

776 WRITE (6,*) ' ' 

777 WRITE (6,*) 'C GAH,ARSF,Eara,PROB' 

778 WRITE <6,*> 'C C0NFIG,Xntii»es,Xnexp1p,Xlflot' 

779 WRITE (6,*) 'C Dhpipe.If luid.Imtl, Theta' 

780 WRITE (6,*) 'C D2rad,Thick*,Thickf, Thick' 

781 WRITE (6,*) 'C Ea.Alpha.Hap.HArad' 

782 WRITE (6,*) 'C Tkf1n,Rhocoatins,Rhofin,RHOani' 

783 WRITE (6,*) 'C Xladiab.Xachaas' 

784 WRITE (6,*) ' ' 

785 WRITE (6,*) 'C If lg2,Hmn,Gap,P1tch' 

786 WRITE (6,*) 'C Dcan,Dhp,Rc,Rb' 

787 WRITE (6,*) 'C Tf ,TXf in.TKcan.TXbraze' 

788 WRITE <6,*) 'C TKhp.XNf .Xau.RHOcan' 

789 WRITE <6,*> 'C RHObraze.THICXmn.Wmn' 

790 WRITE (6,*> ' ' 

791 WRITE (6,*) 'C XN9,R9,Dp,S«1LEN' 

792 WRITE <6,*> 'C THICXP.RHOPIP.THICKI.RHOINS' 

793 CALL RADPRT(Orad.Trad,Xntube«,Xnexpip,Xlflat,Dhpipe,Iflu1d,I 

794 last l , Theta, 02rad, Thick*. Thi ckf , Th 1 ck, Ea, 

795 8Alpha,Hap,HArad,TXf in.Rhocoating.Rhof In.RHOara.Xladiab, 

796 tXachaa*. PROS, GAM, ARSF,Eara,Tim,Orejected,Thickf2,Thicka2, 

797 lAradiator,Aradeffect,Wthick2,Xnart2,Artid2, 

798 lArtuall2,Thick2,Xlevap2,Xladi2,Xltpec2,Xltot2,Xapipea,Xaflu1d, 

799 «afin,Xmoatino,Xmrmr,Xmrmrid,Xatructure, 
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800 &Xnetracfciasst2) 

801 CALL ORBPRTdENf l8,Hslt,HINCL,Rsun,Vrlnch) 

802 C 

803 CALL HHNPRT(Iflg2.HMn,Gap,Pitch,XNplpes,Xnexpipes,Dcan, 

804 lOhp, Rc , Rb, Tf , TKf i n, TKcan, TKbraze,TKhp, XNf , RHOcsn, RHObraze, 

805 GTHICKisan,Pin,Tin,WMan,Qrad,XNW,XHAMaas,DPMn,DTf iUa,XHNNAN) 

806 WRITE (6,*) ' ' 

807 C 

808 CALL DUCPRT(XN9,R9,Dp,SUNLEN,Vpipe,Tin,Pin,THICKP,RH0PIP, 

809 tTHICKI.RHOINS,XNN,DPDUCT,DUCNAS) 

810 C 

811 WRITE (6,*) 'NASS SUNNARY FOR DIRECT BRATTON STSTEN' 

812 WRITE (6,*) ' ' 

813 WRITE (6,*) 'HEAT PIPE COOLED GAS NANI FOLD NASS (Lbs) >',XNNNAN 

814 WRITE (6,*) 'NANI FOLD DUCTING NASS (LBS) -'.DUCNAS 

815 WRITE (6,*) 'RADIATOR NASS (LBS) >',Xnetradaasst2 

816 XNSYST * XNNHAN ♦ DUCNAS ♦ Xnetradsasst2 

817 WRITE (6,*) ' ' 

818 WRITE (6,*) 'DIRECT BRATTON STSTEN NASS (LBS) -'.XNSYST 

819 WRITE (6,*) ' ' 

820 C 

821 STOP 

822 C 

823 1200 IF (Iprob.E0.3) THEN 

824 GO TO 1400 

825 ELSE 

826 GO TO 1205 

827 ENDIF 

828 1205 IHXflg * 2 

829 C 

830 C DESIGN HEAT REJECTION HEAT EXCHANGER (HRHX) 

831 C 

832 UEST - 100.0 

833 THIN - Tin 

834 THOUT - Tout 

835 PHOT - Pin 

836 TCOUT ■ THIN • 30.0 

837 TCIN - THOUT • 50.0 

838 CALL HEXEPR(XHU,PHOT,THIN,GNA,CP,RHO,ANU,TCOND.PR) 

839 WRITE (6,*) ' ' 

840 C WRITE (6,*) 'IHXflfl,UEST,THIN,THOUT,PHOT,TCOUT,TCIN -'.IHXflg, 

841 C GUEST, THIN, THOUT, PHOT, TCOUT, TCIN 

842 C WRITE (6,*) 'XHW,PHOT,THIN,GNA,CP,RHO,ANU.TCOND,PR -'.XHW.PHOT, 

843 C 8THIN,GNA,CP,RH0,AHU,TC0ND,PR 

844 WDOTS - (3413.0*Orad)/(3600.0*CP*(THIH-THOUT)) 

845 ANWS - XNW 

846 TINS - 4.0 

847 DENINS - 24.0 

848 DENSSH - 505.0 

849 DTUBE - 0.375 

850 PR - 1.3 

851 TTUBE - 0.020 
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852 ANPLATES « 5.0 

853 C URITE (6,*) 'UDOTS, AMIS, TINS, DEN INS, DENSSH,DTUBE, PR, TTUBE, ANPLATES 

854 C 8 ■', UDOTS, AMIS, TINS, DENINS,DENSSH,DTUBE, PR, TTUBE, ANPLATES 

855 CALL XNAKPRdCIN,RHOnak,CPnak,VISnak,TKnak) 

856 C WRITE (6,*) 'TCIN,RHOnak,CPnak,VISnak,TKnak >',TCIN,RHOnak,CPnak, 

857 C tVISnak.TKnak 

858 WDOTT - (3413.0*Qrad)/(3600.0*CPnak*dCOUT-TCIN)) 

859 AKTUBE - 10.0 

860 QDOT > 3413.0*Qrad 

861 C URITE (6,*) 'WDOTT, AKTUBE, ODOT WDOTT, AKTUBE, QDOT 

862 C WRITE <6,*) 'CALLING HRSHEL' 

863 CALL HRSHELdHXf lg,UEST, THIN, THOUT, PHOT, TCIN,TCOUT,WDOTS, AMI 

864 8S,TINS,DENINS,DENSSH,DTUBE, PR, TTUBE, ANPLATES, WDOTT, AKTUBE.Q 

865 IDOT , DPS HELL , ANTUBES .DPTUBE ,DOTL2 , ALSHEL , AMSHELL , ANPLATES, 

866 iANTUBES,AHINSUL,AHHEADS,ANSTRT,AHETNAS$,XHNHEX,HSHELL,AFRIC,UNEU, 

867 iRETUBE.THC.ANTSHT) 

868 C 

869 C SET NANI FOLD LIQUID VELOCITY TO DESIGN NANI FOLD 

870 C 

871 Vllqaan ■ 30.0 

872 If Lg2 ■ 2 

873 DTaan » Tin-Tout 

874 DTfila ■ 50.0 

875 CALL TNEANdin,DTaan,DTf 1 la,Tbar) 

876 CALL RADFLGdin,lf luid,laatl) 

877 Alpha ■ 0.5 

878 Hap >1.0 

879 HArad « 2.0 

880 CALL HRTSNKdENflg, Halt, HINCL,Raun,Yrlnch, Alpha, Hap,HArad,Tsink) 

881 Ea - 0.8 

882 Etarad - 0.65+(0.0002*Tbar) 

883 Aradest - <3413.0*Qrad)/(0.1713E-08*E**Etarad*dTbar**4.0)-<Tsink* 

884 8*4.0))) 

885 Aactual ■ 0.5*Aradest 

886 DUNLen - 20.0 

887 Width ■ Aactual/DlMlen 

888 Caan « Width 

889 C WRITE <6,*) »*****FR0N LINE 819****' 

890 C URITE (6,*) 'Etarad, Aradest, Aactual, Width, Caan**’, Etarad, Aradest, A 

891 C tactual, Width, Caan 

892 Haan - 1.5 

893 Pitch - 3.5/12.0 

894 Dean - 0.090333 

895 Dhp - 0.083333 

896 Rc • 0.043500 

897 Rb • 0.043333 

898 Tf ■ 0.000833 

899 TKfin ■ 112.0 

900 TKcan ■ 10.0 

901 TKbraze > 28.0 

902 TO ■ Trad/1.8-273.2 

903 CALL Wallpropdaatl,TO,Uallden,Tcuall) 
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TKhp ■ 242.0*TcualL 
XNf • 1.5*12.0*10 
XntUws ■ (12.0*W1dth)/3.5 
Xnexplp ■ 0.1*XntU*s 
XNpIpes ■ Xntubes 
XNexpipes * Xnexplp 
XMU ■ Xau 
Pam « Pin 
Taan ■ Tin 
RHOcen • 505.0 
RHObreze ■ 535.0 

TNICKaan - 0.005208 ♦ <0.000052*Ptn) 

Unan - UDOTT 
GAP « 0.5 

1208 CONTINUE 

Aa1n * (Gap* Naan) - (Dcan-Haan) 

DO 1209 I « 1,100,1 
Vaan • Waan/(Rho*A«1n> 

ERR0R4 * 1.0 - (Vllqpan/Vtaan) 

Aain « A»1n*(1.0*(0.8*ERROR4)) 

C WRITE (6,*) # V*an,ERR0R4,A«1n Vmn, ERROR4, Aafn 
IF (ABSCERROR4).GT.O.OD THEN 
GO TO 1209 
ELSE 

GO TO 1210 
ENDIF 

1209 CONTINUE 

1210 Asiln * Aafn 
Naan ■ (Aa1nH)can)/(Gap+1.0) 

CALL HPfWN(Ifluid,Iflg2,CMn < HMn > Gap > Pftch,Dc«i ( Dhp,Rc,ltb,Tf,TICfi 
in,TKcan,TKbraze,TKhp,XNf,XNpipea,XNaxpfpes,XM,P1n,Tin,RH0can,RH 
Mbraz«,THICKMn,UMn,Qrad,XNANMS,DPMn,DTfH.,XMNNAM> 

XN9 > 12.0 

C SET PIPE VELOCITY AT 30.0 FT/SEC TO DESIGN NAK PLUMBING SYSTEM 
CALL XNAKPR(T.an f RHO,CP > VIS t T1C) 

Vpipe ■ 30.0 
Uplpe » Whan 

Op - SQRT((183.346*Upipe)/(Rhd*Vpipe)) 

SUMLEN - 60.0*(Qrad/50.0) 

THICKP ■ 0.10 
RHOPIP ■ 505.0 
THICKI ■ 4.0 
RNOINS « 24.0 
R9 > 4.0*Dp 

C URITE (6,*) 'INPUTS FOR HRPIPE' 

C URITE (6,*) 'Vpipa,Upipa,Dp,SUMLEN «\Vp1pa.Upipa.Dp,SUMLEN 

C URITE (6,*) » —♦—*•—*»*•**—***•****— ♦ 

CALL HRPlPE(XN9,R9,Dp,SUMLEN,Vpfpa,T<n,Pin.TNICKP,RH0PIP.TNiaCI, 
UH0INS,DPPIPE,PIPNAIC,P1PMAS) 


Orad * Qrad 
Trad ■ Tbar 
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956 

957 

958 

959 

960 

961 

962 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 
1000 
1001 
1002 

1003 

1004 

1005 

1006 
1007 


Xntubes * (12.0*Width)/3.5 
Xnexpip * 0.1*Xntubes 
Xlflat * 18.00 
Dhpipe « 1.0 

CALL RADFLG(Tbar,If luid, laatl) 

1300 THETA » 0.0 

D2rad * Uidth/PI 
Thick* « 0.0 
Thickf « 0.050/12.0 
Thick * 0.003/12.0 
E* ■ 0.8 
Tkfin ■ 49.1 
Rhocoating * 0.0 
Rhofin ■ 113.0 
RHOar* ■ 113.0 
Xladiab « o.O 
Xnchnas * 0.0 
PROB * 0.99 
GAN « 1.70 
ARSF * 1.70 
Ear* * 10000000.0 
CONFIG ■ 1.0 

CALL THEAN<Tin,DTMan,DTfilM,Trad) 

CALL HRRAD(Orad,Trad,Xntubes,Xn*xpip,Xlf lat,Dhpipe,lf luid,lM*tl, 
ATheta,D2rad,ThickM,Thickf , Thick, Em, IENflg, Halt, HINCL,Rsun,Yrlnch, 
AAlpha, Hap, HArad,TKf in, Rhoc oat ing,Rhofin,RHOar*,Xladiab, CONFIG, 
&XMch*M, PROB, GAM, ARSF, EsrM,TiMe,Qrejectod, Thickf 2, Thick*2, 

AAradi at or , Aradef f ect , Wth i ck2 , Xnart2, Art i d2 , 

lArtuall2,Thick2,Xlevap2,Xladi2,Xlspec2,Xltot2,XMpipes,Xnf luid, 
AX*f in,X«coating,X«ar*or f XMr*orid,Xstructure, 

AXnet radMass 1 2 , Wx 1 2 ) 


UDOTT > Up ip* 

CALL PUHP(Tin,UDOTT,DPPIP€,DPTUBE,DPMan,0PL00P,Phyd f XHPUMP) 
CALL VACMA$(Tin,PIPNAIC,XHNMAN r XMNHEX,XMNVAC,XMVAC) 


WRITE (6,*> HEAT REJECTION SYSTEM FOR A BRAYTON CYCLE SYSTEM 

AIN WHICH CYCLE WASTE HEAT IS REJECTED TO A PUMPED NalC LOOP FROM 
ATHE CYCLE WORKING FLUID TO A HEAT PIPE COOLED NalC MANIFOLD ***' 
WRITE (6,*) ' ' 

WRITE (6,*) 9 INPUT FOR OPTION NUMBER 2' 

WRITE (6,*) 9 9 

WRITE (6,*) 'INPUT FOLLOWING DATA INTO FILE *RADAT+ TO RUN OPT *2' 
WRITE <6,*) 9 9 

DEFINE ORBIT 

WRITE (6,*) IENf lfl,Halt,HINCL,RsU) 

WRITE (6,*) Yrlnch,Ti«* 
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1008 


WRITE 

<6 •> 

f 

9 

1009 

C 

DEFINE RADIATOR 


1010 


WRITE 

<6.*> 

GAM, ARSF,Eersi f PROS 

1011 


WRITE 

C6.*> 

CON F 1 G , Xntifees , Xnexpi p,X l f 1st 

1012 


URITE (6,*) 

Dhpipe, If luid,Iaatl, Theta 

1013 


WRITE 

<«.*> 

D2rad v Thicloi,Thickf f Thick 

1014 


WRITE 

C6.*> 

Ea, Alpha, Hap, HArad 

1015 


URITE (6,*) 

Tltf in, Rhocoat i ng , Rhof i n, RHOara 

1016 


URITE (6 ,•) 

Xladiab,Xachaas 

1017 


WRITE 

<*.*> 

9 

9 

1018 

c 

DEFINE HEAT 

SINK HEAT EXCHANGER 

1019 


URITE <6.*> 

IHXf lg,UEST,TCIN,TCOUT 

1020 


WRITE 

<*.•> 

WDOTS,AMU$,TINS,DENINS 

1021 


WRITE 

(6.*) 

DENSSH , DTUBE , PR , TTU8E 

1022 


WRITE 

«.*> 

ANPLATES , WDOTT f AJCTUBE 

1023 


URITE 

(6.*) 

9 

9 

1024 

c 

DEFINE HEAT 

PIPE MANIFOLD 

1025 


WRITE 

<*.•> 

I f l g2 , Naan , Gap, P 1 tch 

1026 


URITE 

<6.*> 

Dcan,Ohp,Rc,Rb 

1027 


URITE 

(6.*) 

Tf. 

TKf in.TKcan.TKbraze 

1028 


URITE 

(6.*) 

TKhp.XNf .XRM.RHOcan 

1029 


WRITE 

<*.*> 

RHObraze. TH I CK— n,H— n 

1030 


URITE 

C6 *) 

9 

9 

1031 

c 

DEFINE PIPING 


1032 


URITE 

(«.*) 

XN9,R9,Dp,SUHLEN 

1033 


URITE 

<«.*> 

THICKP.RHOPIP.THICXI .RH01HS 

1034 


URITE 

<6.*> 

9 

9 

1035 


WRITE 

<6.*> 

9 c 

lEHf lg,Halt,HINCL,Rair>' 

1036 


URITE 

(6.*) 

'C 

Trlnch.Ti— ' 

1037 


WRITE 

(6.*) 

9 

9 

1038 


WRITE 

<6.*> 

'C 

GAM,ARSF,Eara,PROB' 

1039 


WRITE 

<6.*> 

•z 

CONFIG, Xntubes,Xnexpip,Xlflat' 

1040 


WRITE 

(*.*> 

9 z 

Dhpi pe, I f l ui d, last l , Theta' 

1041 


WRITE 

(6,*> 

9 Z 

D2rad, Th f cka, Th i clef , Th i ck' 

1042 


WRITE 

<*.•> 

•z 

Ea,Alpha,Hap,HArad' 

1043 


WRITE 

C6,*> 

9 Z 

T kf i n, Rhocoat i ng , Rhof i n, RHOara' 

1044 


WRITE 

<6.*> 

•z 

Xladiab,Xachaas' 

1045 


WRITE 

<6.*> 

9 

9 

1046 


URITE 

<*.*> 

9 Z 

IHXf lg, (JEST, TCI N,TCOUT r 

1047 


URITE 

<*.*> 

9 z 

WDOTS, ANUS, TINS, DEN IRS' 

1048 


URITE 


9 Z 

DENSSH, DTUBE, PR, TTUBE' 

1049 


URITE 

<«.*> 

9 Z 

ANPLATES, WDOTT, AICTUBE' 

1050 


WRITE 

<*.*> 

9 

9 

1051 


URITE 

<*.*> 

9 Z 

Iflg2,Haan,Gap,P!tch' 

1052 


URITE 

<*.*> 

9 Z 

Dcan,Dhp,Rc,Rb' 

1053 


URITE 

<*.*> 

9 Z 

Tf , TKf i n, TKcan, TKbraze' 

1054 


URITE 

<6,*> 

9 Z 

TKhp,XNf , Xau, RHOcan' 

1055 


URITE 

<6.*) 

9 Z 

RHObraze, TH I CKmn, Man' 

1056 


URITE 

<6.*> 

9 

9 

1057 


URITE 

<6,*> 

9 Z 

XN9,R9,Dp,SUMLEN' 

1058 


WRITE 

<6.*) 

9 Z 

THICKP,RHOPIP,THICK! ,RHOINS' 

1059 


URITE 

<*.*> 

9 

9 
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1060 

1061 

1062 

1063 

1064 

1065 

1066 

1067 

1068 

1069 

1070 

1071 

1072 

1073 

1074 

1075 

1076 

1077 

1078 

1079 

1080 
1081 
1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 
1101 
1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
1111 


C 


C 


C 


C 


CALL RADPRT(Qrad,Trad,Xntubes,Xnexpip,Xlf lat,Dhpipe,If lufd,I 
taet l, Theta, D2red,Thickn,TMckf, Thick, Ea, 
tAlpha,Hap,HArad,TKfin,Rhocoating,Rhof in,RHOara,Xladiab, 
&XBChmes,PR06,GAM,ARSF,Eara,Tiae,Qrejected,Thickf2,Thicka2, 
&Aradiator,Aradeffect,Vthick2,Xnart2,Artid2, 

fcArtwall2,Thick2,Xlevap2,Xladi2,Xlspec2,Xltot2,Xapipes,Xaf luid, 
&XBfin,Xacoat1ng,Xaarwor,Xaaraorid,Xstructure, 

IX net redness t2) 

CALL 0R8PRT(IENflg ( Halt,HINCL,Raun,Yrlndi) 

CALL HNNPRT(lflg2,HaBn,Gap t Pitch,XNp1pes,Xnexpipes,Dcan, 

IDhp, Rc , Rb, Tf , TKf i n, TKcan, TKbraze, TKhp, XNf , RHOcan, RHObraze, 
STHICKaan.Pin, T 1 n, Uaan, Qrad,XNW,XNAMaas,DPaan f DTf i la.XMNMAN) 

WRITE (6,*) ' ' 

CALL PlPPRT(XN9.R9,Dp,SUNLEN,Vpipe.T1n,P1n,THICXP,RH0PIP. 

STHICKI ,RHOINS,DPPIPE,PlPNAK,PIPNAS) 

WRITE (6,») ' ' 

CALL HSHXPTOHXf lg f GDOT t THIN,THOUT,TCIN,TCOUT,NDOTS,DENSSH, 

ID TUBE, TTUBE,WDOTT,AKTUBE, DPS HELL, ANTUBES,DPTUBE,D0TL2,ALSHEL, 
MMSHELL,AMPLATES,AMTUBES, ANETNASS, XMNHEX,HSHELL,AFRIC, UN EW, RETUBE, 
tTHC , AMI NSUL , AMHEADS , ANTSHT , ANSTRT ) 

WRITE (6,*) ' • 

CALL PMPPRT(Tin,WDOTT,DPPIPE,DPTUBE,DPMAN,DPLOOP,Phyd, 
tXHPUNP) 

CALL VACPRT(XMNvac.XMVAC) 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
XNSYST 
A + 


'.ANETNASS 


'NASS SUMMARY FOR INDIRECT BRATTON SYSTEM' 

« * 

'HEAT SINK HEAT EXCHANGER NASS (LBS) (DRY) ■ 

'HEAT EXCHANGER NaK NASS (LBS) >',XNNHEX 
'NaK PIPING SYSTEM MASS (LBS)(DRY) -'.PIPNAS 
'NASS OF NaK IN PIPING SYSTEM (LBS) «',PIPNAK 
'NASS OF EM PUMP (LBS) (WET) -'.XNPUNP 
(6,*) 'HEAT PIPE/NaK NANIFOLD MASS (Lbs) (DRY) ■',» 

(6,*) 'NASS OF NaK IN MANIFOLD (LBS) -'.XMNNAN 
(6,*) 'EXPANSION COMPENSATOR NASS (LBS) (DRY) *',XNVAC 
(6,*) 'NASS OF NaK IN EXPANSION COMPENSATOR (LBS) >',XNNVAC 
(6,*) 'RADIATOR NASS (LBS) «',Xna tradaaaat2 

ANETNASS ♦ XMNHEX ♦ PIPMAS ♦ P1PNAK ♦ XMPUMP ♦ 

* XMVAC ♦ XMNVAC ♦ XnatradMaat2 


( 6 .*) 

( 6 ,*) 

( 6 .*) 

<*.*> 

( 6 .*) 

( 6 .*) 

<*.*> 


WRITE (6,*> ' ' 

WRITE (6,*) 'INDIRECT BRATTON SYSTEM MASS (LBS) (WET) ■' .XMSYST 
WRITE (6,*) 

STOP 


C 

1400 Iprob-3 
C 

c 

DTaan ■ Tin-Tout 
DTf ila - 50.0 



F 771 -EM/32 - Lahey Extended-Hsaory FORTRAN 77, Version 3.01 09/28/92 14:45:36 

Rags 23 

SUBROUTINE HRMAST Coapiling 0ptions:/N0/N7/B/NC/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/W/NX/NZ1 
Source file Listing 

1112 CAU Taaan(Tin,DTasn,DTfila,Tbsr) 

1113 Alpha « 0.5 

1114 Hap « 1.0 

1115 NArad - 2.0 

1116 CALL HRTSMKOENflg.Halt.HINCL.Rsut.Vrlnch.Alpha.Hap.NArad.Tsink) 

1117 C WRITE (6,*) 'RESULTS FROM SIMPLIFIED OPTION #3' 

1118 C URITE (6,*) 'DTaan.Tbar.Tsink >' .DTaan.Tbar.Tsink 

1119 Ea ■ 0.8 

1120 Etarad - 0.65 4 (0.0002*Tbar) 

1121 Aradast ■ (3413.0*Orad)/<O.1713E-O8*E**Etsrad*<(Tber**4.O)-(Tsink* 

1122 i*4.0))) 

1123 Aactual ■ 0.5*Aradest 

1124 DUMLEN - 10.0 

1125 Width - Aactual/DUMLEN 

1126 C WRITE (6,*) 'Etarad,Aradest,Aactual,Width ■'.Etarad, Aradast, Aactu 

1127 C Sal, Width 

1128 Qrad • Orad 

1129 Trad ■ Tber 

1130 XntiAws - (12.0*Width)/2.0 

1131 Xnaxpip ■ 0. 1*Xntii)aa 

1132 Xlflat ■ 18.00 

1133 Dhpipe - 1.0 

1134 CALL RADFLG(Tbar,Ifluid, last l ) 

1135 C WRITE (6,*) *Qrad,Tred,Xntii>es,Xnexpip,If luid.Iaatl «',Orad,Trad, 

1136 C SXntUbes.Xnexpip.lfluid.laetl 

1137 1500 THETA « 0.0 

1138 Caw ■ Width 

1139 THICKins > 4.0/12.0 

1140 Tbraze - 0.002/12.0 

1141 TKcan ■ 10.0 

1142 TKbraze > 35.0 

1143 TKhp ■ 10.0 

1144 XHpipes ■ Xntubes 

1145 XMexpipas ■ Xnaxpip 

1146 RHOpip ■ 505.0 

1147 RHOcan ■ 505.0 

1148 RHObraze ■ 525.0 

1149 THICKaan - 0.0625/12.0 

1150 Thtpip ■ 0.020/12.0 

1151 Xin - 1.0 

1152 C WRITE (6,*) 'IHPUT TO 1ST CALL TO KPRP (Xin.Pfn.T1n) ■'.X1n.Pin.Ti 

1153 C An 

1154 CALL KPRP(Xin,Pin,Tin,DL,DV,HF.HG.HFG,SF,SG,SFG.VF.VG) 

1155 C WRITE (6,*) 'OUTPUT FROM KPRP (OL.DV.NF.HFG.SF.SG.SFG.VF.VG) ■', 

1156 C SOL. OV, HF, HFG, SF, SG. SFG, VF. VG 

1157 CALL KTRH{Xin,Pin,Tin,Cl,Cv,TKl,TKv,Prl,Prv,VL,W) 

1158 Test - (-7633. 6)/(ALOG10(Pin)-5. 279) 

1159 IF (Tin.GT.Tsat) DHMET"CV*(Tin-Tsat)4HFG*Cl*(Tsst-Tout) 

1160 IF (Tin.EQ.Tsat) DHHET«(Xin*HFG)*Cl*(Tsat-Tout) 

1161 IF (Tin.LT.Tsat) DHMET-Cl*(Tsat-Tout) 

1162 Waan - 3413.0*0rad/DHNET 

1163 Gap ■ 3.0/12.0 
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1164 Hot - 2.0 

1165 DPliait > 0.05*Pin 

1166 DTliait > DTftla 

1167 C WRITE (6,*) 'UOT.OPlialt «',UOT,DPl1ait 

1168 C WRITE (6,*) 'DTliait ■' .DTliait 

1169 1504 CONTINUE 

1170 CALL C0NMAN(IHu1d,COT,HOT,Gap,THiaC1ns,RH0ins,Tout, 

1171 fcTbraze,TKcan,TKbraze,TKhp,XNpipes,XNexpipes,Pin,Tin,Xtn,RHOpip, 

1172 tRHOcan, RHObraze, THIOCaan, Thtpl p,WOT,Qred,XMANa es ,DPOT,DTFsup, 

1173 tAr,Gt,V,Dh,Cgt,Rel,Hl,Xtt,Rev, 

1174 IDTFcon,DTFsub,DTf 1 lax) 

1175 OTEROR » 1.0 • (DTliait/DTf Haas) 

1176 Hot « Haan*(1.O+(0.1*DTER0R)) 

1177 C WRITE (6,*) 'DTEROR.Hot -'.OTEROR, Hot 

1178 IF (ABS(DTEROR).GT .0.01) THEN 

1179 GO TO 1504 

1180 ELSE 

1181 GO TO 1506 

1182 ENDIF 

1183 1506 Hot « Hot 

1184 C WRITE <6,*> * « 

1185 

1186 1508 CONTINUE 

1187 CALL CONMAN(If luid. Cot, Hot, G ap, THICXins.RHOine, Tout, 

1188 tTbraze,TKcan f TKbraze,TKhp,XNpipes,XNexpipes,Pin,Tin,Xin,RH0p1p, 

1189 IRHOcan, RHObraze, THICXOT,Thtpip,Wban,Qrad,XMANuas,DPOT,DTFsup, 

1190 tAr,Gt,V,Dh,Cgt,Rel,Hl,Xtt,Rev, 

1 191 IDTFcon,DTFsub,OTf 1 lax) 

1192 OPEROR - 1.0 - (DPliait/DPaan) 

1193 Gap-Gap*(1.0+(0.002*DPEROR)) 

1194 C WRITE (6,*) 'OPEROR, GAP, Hot .OPEROR, CAP, Hot 

1195 IF (ABS(DPEROR).GT.O.OI) THEN 

1196 GO TO 1508 

1197 ELSE 

1198 GO TO 1510 

1199 ENDIF 

1200 1510 Gap ■ Gap 

1201 CALL CONMAN( I fluid, Caen, Haan,Cap,THICX<nt,RH01ns, Tout, 

1202 lTbraze,TKcan,TKbraze,TKhp,XNpipes,XNexpipes,Pin,Tin,X1n,RH0pip, 

1203 CRHOcan, RHObraze, TH I CKaan, Thtpl p,Waan,Qrad,XHANaa i ,DPaan,DTFsup, 

1204 &Ar,Gt,V,Dh,Cgt,Rel,HI,Xtt,Rev, 

1205 IOTFcon,DTFsii>,OTf 1 la) 

1206 Xlflat ■ 12.0*Haan 

1207 D2rad a Width/P I 

1208 Thicka a 0.0 

1209 Thickf a 0.050/12.0 

1210 Thick a 0.003/12.0 

1211 Ea ■ 0.8 

1212 Tkfin a 49.1 

1213 Rhocoating * 0.0 

1214 Rhofin « 113.0 

1215 RHOara « 113.0 
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1216 Xledieb * 0.0 

1217 Xachaas « 0.0 

1218 MOB - 0.99 

1219 GAM ■ 1.70 

1220 ARSF * 1.70 

1221 Ear* - 10000000.0 

1222 CONFIG > 1.0 

1223 CALL TNEAN(Tin,DTaan,DTfilB,Trad) 

1224 C WRITE (6,*) 'Trod, Ifluid, laatl *' .Trad, Ifluid, laatl 

1225 C WRITE (6,*) 'Qrad.Trad.XntUxs.Xnexpip.Xlf lat.Dhpfpe, Ifluid, laetl, 

1226 C 8Theta,D2rad, Thick*. Thickf.Thiek.Ea.lENflg, Halt, Ninel, Rsun.Yrlnch, 

1227 C tAlpha, Hap, HArad, Tkf 1 n «*»' ,Qrad,Trad,Xntubes,Xnexpip,Xlf lat.Dhpipe 

1228 C G,Ifluid,lBatl,Theta,D2rad,ThickB,Thickf,Thick,EB,IEMflg,Nalt,H1ncl 

1229 C 4,Raun,Yrlnch,Alpha,Hap,HArad,Tkfin 

1230 CALL NRRAD(Qrad,Trad,XntiA*s,Xnexpip,Xlflat,Dhpipe, Ifluid, laatl, 

1231 4Theta,D2rad, Thick*, Thiekf,Thick,Ea,IENflg, Halt, HINCL.Rswt.Yrlnch, 

1232 4Alpha,Hap,HArad,TKfin,Rhocoating,Rhofin,RH0er*,Xladiab,C0NFIG, 

1233 iX*ch*as,PR0B,GAM,ARSF,Ear*,Ti*e,Qrejacted,Thickf2,Thick*2, 

1234 GAradiator,Aradeffect,Wthick2,Xnart2,Artid2, 

1235 IArtuall2,Thick2,Xlevap2,Xladi2,Xlspec2,Xltot2,Xapipes,X*fluid, 

1236 tt*fin,X*coating,X*ar*or,X*Br*orid,Xstructure, 

1237 tXnetra<*Msst2,Uxl2> 

1238 C 

1239 C 

1240 WRITE (6,*) '*** HEAT REJECTION SYSTEM FOR A RANK I HE CYCLE SYSTEM 

1241 tIN WHICH CYCLE WASTE HEAT IS REJECTED DIRECTLY FROM THE CYCLE WORK 

1242 SING FLUID IN A HEAT PIPE COOLED CONDENSER ***' 

1243 WRITE (6,*) ' ' 

1244 WRITE (6,*) 'INPUT FOR OPTION NUMBER 3' 

1245 WRITE (6,*) ' ' 

1246 WRITE (6,*) 'INPUT FOLLOWING DATA INTO FILE *RADAT* TO RUN OPT iS' 

1247 WRITE (6,*> 

1248 C DEFINE ORBIT 

1249 WRITE (6,*) IENflg,Halt,HINCL,Rsun 

1250 WRITE (6,*) Yrlnch.Tiae 

1251 WRITE <6,*) ' ' 

1252 C DEFINE RADIATOR 

1253 WRITE (6,*) GAM, ARSF, Earn, PROB 

1254 WRITE (6,*) CONFIG,Xntubes,Xnexpip,Xlflat 

1255 WRITE (6,*) Dhpipe,Ifluid,I*atl, Theta 

1256 WRITE <6,*) D2rad, Thick*, Thickf, Thick 

1257 WRITE (6,*) E*,Alpha,Hap,HArad 

1258 WRITE (6,*) Tkfin,Rhocoating,Rhofin,RHOarai 

1259 WRITE (6,*) Xladiab, Xachaas 

1260 WRITE (6,*) ' ' 

1261 C DEFINE CONOENSER 

1262 WRITE (6,*) Cs*n,M*an,Gap,THICKins 

1263 WRITE <6,*> RHOina,Tout,Tbraze,TKcan 

1264 WRITE (6,*) TKbraze.TKhp.Pin.Tin 

1265 WRITE (6,*) Xi n, RHOpi p, RHOcan, RHObraze 

1266 WRITE (6,*) THlCKaan.Thtpip.Waan 

1267 WRITE (6,*) ' ' 
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SUBROUTINE HRMAST Cooplling 0ptiona:/N0/N7/B/NC/ND/NF/H/NI/KK/NL/P/NQ1/NQ2/NQ3/R/S/NT/U/NX/NZ1 
Source file Liating 


1268 C 

1269 URITE (6.*) »C IENf Ig, Halt, HINCL, Ram' 

1270 URITE (6,*) 'C Yrlnch.Tlae' 

1271 URITE (6,*) ' ' 

1272 URITE (6,*) 'C GAM,ARSF,Eara,PROB' 

1273 URITE (6,*) 'C CONFIG, Xntl±»a,Xnexpip,Xlf lat' 

1274 URITE (6,*) 'C Dhpipe,Ifluid,laatl,Thata' 

1275 URITE (6,*) »C D2rad,Thlclaa,Thickf, Thick' 

1276 URITE (6,*) 'C Ea, Alpha, Hap, HArad' 

1277 URITE (6,*) 'C Tkfin,Rhocoat1ng,Rhofin,RH0ana' 

1278 URITE (6,*) 'C Xladiab.Xachaea' 

1279 URITE (6,*) ' ' 

1280 URITE (6,*) 'C Oaan, Naan, Gap, THICK: no' 

1281 URITE (6,*) 'C RHOine,Tout,Tbraze,TKcan' 

1282 URITE (6,*) 'C TKbraze,TKhp,Pin,Tin' 

1283 URITE (6,*) 'C X1n,RHQp1p,RN0can,RH0braze' 

1284 URITE (6,*) 'C THlCKMn,Thtplp,Uaan' 

1285 URITE (6,*) ' ' 

1286 CALL RADPRT(9rad,Trad,Xnttf>es,Xnexp1p,Xlflat,Dhplpe,Ifluld.I 

1287 Saatl,Thata,D2rad,Thicka,Thickf,Thick,Ea, 

1288 SAlpha,Hap,HArad,TKfln,Rhocoating,Rhofin,RHOara,Xladlab, 

1289 &XaKhaaa,PR08,GAM,ARSF,Eana,Ttae,Qrejacted,Thickf2,Thicka2, 

1290 lAradi ator , Aradef f act ,Uth1 ck2,Xnart2, Art Id2, 

1291 8Artuall2,Th1ck2,Xlevap2,Xladl2,Xlapec2,Xltot2,Xapipaa,XRrflutd, 

1292 tXarf1n,Xacoat1ng,Xaara»r,Xaanaorld,Xatructure, 

1293 8Xnetradaaaat2) 

1294 CALL ORBPRT(IEHf Ig, Hal t, HINCL, Rem, Yrlnch) 

1295 C 

1296 CALL CONPRT(Ar,Gt,V,Dh,Cgt,Ral,Hl,Xtt,Rev, 

1297 tIHu1d,Caan,Haan,Gap,THICKina,RH0ine,Tout, 

1298 fcTbraze,TKcan,TKbraze,TKhp,XNptpee,XNexp1pea,P1n,Tin,Xin,RH0ptp, 

1299 4RH0can,RH0braze,THlCKaan,Thtplp,Ul»n,0red,XNANaea,DPaan, 

1300 IDTflla) 

1301 C 

1302 C 

1303 URITE (6,*) 'NASS SUMMARY FOR CONDENSING RANKINE SYSTEM' 

1304 URITE (6,*) ' ' 

1305 URITE (6,*) 'HEAT PIPE COOLED CONDENSER MASS (Lba) -'.XMANaaa 

1306 URITE (6,*) 'RADIATOR MASS (LBS) »' ,Xnetradaaaat2 

1307 XMSYST - XMAMaas ♦ Xnetradaaaat2 

1308 URITE (6,*) ' ' 

1309 URITE (6,*) 'CONDENSING RANKINE SYSTEM NASS (LBS) XMSYST 

1310 URITE (6,*) ' ' 

1311 C 

1312 STOP 

1313 END 
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SUBROUTINE RADFLG Coapflf ng 0pt1ona:/N0/N7/B/NC/ND/NF/H/NI/NIC/NL/P/NQ1/NQ2/NQ3/R/S/NT/U/NX/NZ1 
Sourca ffla Hating 


1314 C 

1315 C 

1316 C 

1317 SUBROUTINE RADFLG(Tbar, If lufd, laatl ) 

1318 IF (Tbar.LT. 450.0) THEN 

1319 WRITE (6,*) 'RADIATOR TEMPERATURE TOO LOU TO CONTINUE CALCULATION' 

1320 STOP 

1321 ELSE 

1322 GO TO 1410 

1323 ENDIF 

1324 1410 IF (Tbar.LT .549.0) THEN 

1325 IfLuid • 9 

1326 iMtl * 4 

1327 GO TO 1500 

1328 ELSE 

1329 GO TO 1420 

1330 ENDIF 

1331 1420 IF (Tbar.LT. 1008.0) THEN 

1332 If Luld * 2 

1333 laatl « 8 

1334 GO TO 1500 

1335 ELSE 

1336 GO TO 1430 

1337 ENDIF 

1338 1430 IF (Tbar.LT. 1350.0) THEN 

1339 Iflufd - 8 

1340 laatl « 5 

1341 GO TO 1500 

1342 ELSE 

1343 GO TO 1440 

1344 ENDIF 

1345 1440 IF (Tbar.LT. 1710.0) THEN 

1346 Iflufd - 5 

1347 laatl - 7 

1348 GO TO 1500 

1349 ELSE 

1350 GO TO 1450 

1351 ENDIF 

1352 1450 IF (Tbar.LT. 2070.0) THEN 

1353 Iflufd * 3 

1354 laatl * 7 

1355 GO TO 1500 

1356 ELSE 

1357 GO TO 1460 

1358 ENDIF 

1359 1460 IF (Tbar.LT.3240.0) THEN 

1360 Iflufd - 4 

1361 IMtl - 2 

1362 GO TO 1500 

1363 ELSE 

1364 WRITE (6,*) 'TEMPERATURE ABOVE MAXIMUM HEAT PIPE OPERATING LIMIT 1 

1365 STOP 
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Source file Listing 


1366 ENDIF 

1367 1500 RETURN 

1368 END 
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SUBROUTINE RADPRT Ccapiling Option*: /N0/N7/B/NC/ND/N F/H/N I /NK/NL/P/NQ 1 /N02/N03/R/S/NT/V/NX/NZ1 
Sourct file Listing 

1369 C 

1370 C 

1371 C 

1372 SUBROUTINE RADPRT(Qrad,Trad,XntUbes,Xnexpip,Xlflat,Dhpipe,Ifluid,I 

1373 lent l ,Theta,D2red,Thick« r Thickf .Thick, E«, 

1374 (Alpha, Hap, HArad,TKfin,Rhocoating,Rhof in, RHOara,Xladiab, 

1375 (XHchaas,PR0B,GAM,ARSF,Earn,TiMe,Qrejected,Thickf2,Thicka2, 

1376 (Aradiator,Aradeffect,Wthick2,Xnart2,Artid2, 

1377 (ArtMall2,Thick2,Xlevap2,Xladi2,Xlspec2,Xltot2,XHpipes,Xnfluid, 

1378 tXarf in,Xacoating,Xaanaor,XMnaorid,Xstructure, 

1379 (Xnetradaasst2) 

1380 WRITE (6,*) * ' 

1381 WRITE (6,*) 'RADIATOR DEFINITION INPUTS' 

1382 WRITE (6,*) ' ' 

1383 WRITE (6,*) 'GAMMA *',GAM 

1384 WRITE (6,*) 'ARSF ■ »,ARSF 

1385 WRITE (6,*) 'ARMOR DENSITT (Lbs/cu-Ft) -'.RHOARM 

1386 WRITE (6,*) 'YOUNGS MOOULUS OF ARMOR (Lba/sq-ln) -'.Earn 

1387 WRITE (6,*) 'EXPOSURE TINE OR MISSION DURATION (Sacs) »',T1ae 

1388 WRITE (6,*) 'NON-PUNCTURE PROBABILITY -'.PROS 

1389 WRITE (6,*) 'RADIATOR HEAT REJECTION RATE (KWt} *',Orad 

1390 WRITE (6,*) 'AVERAGE RADIATOR SURFACE TEMPERATURE (deg-R) “'.Trad 

1391 WRITE (6,*) 'NUMBER OF PRIMARY HEAT PIPE IN RADIATOR -'.Xntubes 

1392 WRITE (6,*) 'HUMBER OF REDUHDENT NEAT PIPES*' ,Xnexpip 

1393 WRITE (6,*) 'HEAT PIPE EVAPORATOR LENGTH (INCHES)*' ,Xlflat 

1394 WRITE (6,*) 'HEAT PIPE INSIDE DIAMETER ( INCHES)*' .Dhpipe 

1395 WRITE (6,*) 'HEAT PIPE WORKING FLUIO ID NUMBER*', I fluid 

1396 WRITE (6,*) 'HEAT PIPE LINER MATERIAL ID NUMBER*', laatl 

1397 WRITE (6,*) 'CONE ANGLE FOR CONICAL RADIATOR (DEGREES)*', Theta 

1398 WRITE (6,*) 'MANIFOLD DIAMETER FOR CONICAL RADIATOR OR MANIFOLD LE 

1399 MGTH DIVIDED BY 3.141593 FOR FLAT PLATE (FEET) *',D2RAD 

1400 WRITE (6,*) 'RADIATOR EMISSIVITY CONTROL COATING THICK. (FEET)*', Th 

1401 lidos 

1402 WRITE (6,*) 'RADIATOR FIN THICKNESS (FEET)-',Thickf 

1403 WRITE (6,*) 'HEAT PIPE WALL or LINER THICKNESS (FEET)*' .Thick 

1404 WRITE (6,*) 'RADIATOR SURFACE EMISSIVITY-', Em 

1405 WRITE (6,*) 'RADIATOR SURFACE ABSOPTIVITY-', Alpha 

1406 WRITE (6,*) 'RADIATOR PROJ. AREA (FRACT. OF TOT.)-', Hap 

1407 WRITE (6,*) 'RADIATOR ACTUAL AREA ( FRACTION )-',HArad 

1408 WRITE (6,*) 'THERMAL COM). OF FIN MATERIAL (BTU/HR- FT-R)*' , Tkf 1 n 

1409 WRITE (6,*) 'COATING MATERIAL DENSITY (LB/cu-FT)-',Rhocoating 

1410 WRITE (6,*) 'FIN MATERIAL DENSITY (LB/cu-FT)*',Rhofin 

1411 WRITE (6,*) 'LENGTH OF ADIABATIC PORTION OF THE HEAT PIPE (FEET)-' 

1412 l.Xladiab 

1413 WRITE (6,*) 'MASS OF RADIATOR DEPLOYMENT MECHANISM (LBS)-' .Xischaas 

1414 WRITE (6,*) ' ' 

1415 C 

1416 2555 FORMAT (6F12.4) 

1417 WRITE (*,*) ' ' 

1418 WRITE (*,*) 'TOTAL HEAT AVERAGE Radiator EMiasivity' 

1419 WRITE (*,*) 'REJECTED EVAPORATOR FIN Coating ' 

1420 WRITE (*,*) ' (KWt) TEMP (R) Thick (In) Thick (In)' 
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Source file Listing 


1421 URITE (*,2555) Qrejected,Trad,Thickf2,Thickn2 

1422 URITE (*,*) * ' 

1423 URITE (*,*) ' Actual Effective' 

1424 URITE (*,*) '(one-side) Radiator' 

1425 URITE (*,*) *Area(sq-Ft.) Area(sq-Ft)' 

1426 URITE (*,2555) Aradiator.Aradeffact 

1427 URITE (*,*) ' ' 

1428 URITE (*!*) 'HEAT PIPE DESIGN DETAILS • DINS in INCHES' 

1429 URITE (*,*) ' Pipe ID Uick Thick SArteries Art ID 

1430 1 Art Uall Pipe uall' 

1431 URITE (6,2555) Dhpipe,UthIck2,Xnart2,Artid2,ArtMoll2,Tliick2 

1432 URITE (*,*) 'Evap Length Adi Length Cond Length Total Length* 

1433 URITE (*,2555) Xlevap2,Xladi2,Xlspec2,Xltot2 

1434 URITE (* *) ' ' 

1435 URITE (*!•) 'RADIATOR NASS BREAKDOUN - Hass in Lbs.' 

1436 URITE (*,*) 'Heat Pipes Fluids FINS Eaiss. Cont.' 

1437 URITE (*,2555) Xapipes.Xnf luid,Xnfin,Xncoating 

1438 URITE (*,*) 'O.D.ARHOR I.D.ARHOR Structure TOTAL RADIATOR ' 

1439 URITE (*,2555) Xnannr,Xnamorid,Xstructure,Xnetratesst2 

1440 RETURN 

1U1 END 
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1442 C 

1443 C 

1444 C 

1445 SUBROUTINE ORBPRT(IENf lg,Hslt,HINCL,Rsw,Trlnch) 

1446 WRITE (6,*) * ' 

1447 WRITE (6,*) MENflg (ORBIT SELECTION) >',IENflg 

1448 WRITE (6,*) ' lENflg-l, EARTH ORBIT (LEO- CEO)' 

1449 WRITE (6,*) ' IENflg*2, SOLAR ORBIT (0.5 to 2.0 AU)' 

1450 WRITE (6,*) 'ORBIT ALTITUDE (DO «',Helt 

1451 WRITE (6,*) 'ORBIT INCLINATION ANGLE (Degrees) >',HINCL 

1452 WRITE (6,*) 'DISTANCE FROM SUN (AU) *',Rsun 

1453 WRITE (6,*) 'YEAR SATELLITE LAUNCHED >',Yrlnch 

1454 WRITE (6,*) ' ' 

1455 RETURN 

1456 END 
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1457 

C 



1458 

C 



1459 

C 



1460 


SUBROUTINE 

1461 


IOhp,Rc,Rb/ 

1462 


&THICKmn,Pi 

1463 

C 



1464 


WRITE 

<6.* 

1465 


WRITE 

C6.* 

1466 


WRITE 

(«.* 

1467 


WRITE 

<6.* 

1468 


WRITE 

< 6 .* 

1469 


WRITE 


1470 


WRITE 


1471 


WRITE 

<6.* 

1472 


WRITE 

<6.* 

1473 


WRITE 

< 6 .* 

1474 


WRITE 

«.* 

1475 


WRITE 

< 6 .* 

1476 


WRITE 

<6.* 

1477 


WRITE 

< 6 .* 

1478 


WRITE 

<6,* 

1479 


WRITE 

< 6 ,* 

1480 


WRITE 

(6,* 

1481 


WRITE 

(6,* 

1482 


WRITE 

< 6 ,* 

1483 


WRITE 

<*,* 

1484 


WRITE 

<6.* 

1485 


WRITE 

<6,* 

1486 


WRITE 

< 6 .* 

1487 


WRITE 

< 6 .* 

1488 


WRITE 

<6.* 

1489 


WRITE 

<6.* 

1490 


WRITE 

( 6 .* 

1491 


WRITE 

(6,* 

1492 


WRITE 

<6.* 

1493 


WRITE 

< 6 .* 

1494 


WRITE 

<6.* 

1495 


WRITE 

<*.* 

1496 

C 



1497 


RETURN 

1498 


END 



NEAT PIPE COOLED MANIFOLD DEFINITION VARIABLES' 

$ 

If lg2 *',If l#2 

MANIFOLD HEIGHT (Feet)*', Ham 
MANIFOLD WIDTH (Fact).', Gap 

DIST. BETUN CAN (HEAT PIPES) C- LINES (Feet).'. Pitch 

NUMBER OF HEAT PIPES IN RADIATOR*' .XNpipes 

NUMB. OF REDUNDENT HEAT PIPES IN RADIATOR.'.Xnexpipes 

OUTSIDE DIAMETER OF MANIFOLD BRAZE CANS (Feet).'.Dcan 

INSIDE DIAMETER OF NEAT PIPE (Feet)-'.Dhp 

MANIFOLD BRAZE CAN INSIDE RADIUS (Feet).'.Rc 

BRAZE JOINT INSIDE RADIUS (Feet).'.Rb 

FIN THICKNESS (Feet).'.Tf 

THERM. COND. OF FIN MATERIAL (BTU/Hr-Ft*R)*',TKfin 
THERM. COND. OF MANIFOLD CAN MATERIAL (B/HFR)*' , TKcan 
THERM. COND. OF MANIF. BRAZE ALLOT (B/HFR)*' .TKbreze 
THERM. COND. OF HEAT PIPE WALL NATL (B/HFR)*'. TKhp 
TOTAL NUMBER OF FINS FOR THE MANIFOLD HEIGHT*' ,XNf 
DENSITY OF MANIFOLD MATERIAL (Lh/eu-Ft)*',NNOcan 
DENSITY OF BRAZE MATERIAL (Lb/cu-Ft)*',RHObraze 
MANIFOLD MATERIAL THICKNESS (Feet)*',TNICKMn 
MANIFOLD INLET PRESSURE (PSIA)-'.PMan 
MANIFOLD INLET TEMPERATURE (deg-R)*',TMn 
MANIFOLD FLOURATE (LBS/HR)*' ,Uan 
MANIFOLD AND RADIATOR HEAT LOAD (BTU/HR)*' .Qrad 
MOLECULAR UEIGTH OF MANIFOLD WORKING FLUID*' ,XNW 


MANIFOLD PRESSURE DROP (PSID) -'.DPaan 
MANIFOLD FILM TEMPERATURE DROP (deg-R) 
NAK INVENTORY NASS (Lbs) *',XMNMAN 
NET MASS OF HEAT PIPE MANIFOLD (Lbs) -' 


'.DTfils 
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Source file Listing 

1499 C 

1500 C 

1501 C 

1502 SUBROUTINE DUCPRT(XN9,R9,Dp,SUMLEN,Vpfpe,TGAS,PGAS.THICKP.RH0PIP. 

1503 4THICKl.RHOINS,XNU,DPDUCT,DUCMAS) 

1504 C 

1505 URITE (6,*> 'DUCTING INPUT VARIABLES' 

1506 WRITE (6,*) ' ' 

1507 URITE (6,*) 'NUMB. OF 90 DEG. ELBOWS OR E0U1V.-',XN9 

1508 WRITE (6,*) 'AVERAGE RADIUS FOR 90 DEGREE ELBOWS (INCHES)-' ,R9 

1509 URITE (6,*) 'INSIDE DUCT DIAMETER (INCHES)*', Dp 

1510 WRITE (6,*) 'TOTAL LENGTH OF DUCT SYSTEM ( INCHES)-' ,SUMLEN 

1511 WRITE (6,*) 'GAS VELOCITY IN DUCTS (FT/SEC)*' .Vpipe 

1512 URITE (6,*> 'GAS TEMPERATURE (deg-R)-',TGAS 

1513 WRITE (6,*) 'GAS PRESSURE (psis)-',PGAS 

1514 URITE (6,*) 'DUCT WALL THICKNESS ( INCHES)-' .THICKP 

1515 URITE (6,*) 'DUCT WALL DENSITY <LB/cu-FT)-',RHOPIP 

1516 URITE (6,*) 'DUCT INSULATION THICKNESS (INCHES)-'.THICKI 

1517 URITE (6,*) 'DUCT INSULATION DENSITY (LB/CU-FT)«',RHOINS 

1518 URITE (6,*) 'GAS MOLECULAR UEIGHT«',XHU 

1519 URITE (6,*) 'DUCT SYSTEM PRESSURE DROP (PS1D)*' .DPDUCT 

1520 URITE (6,*) 'DUCT SYSTEM NASS (LBS)-' ,DUCMAS 

1521 C 

1522 RETURN 

1523 END 
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SUBROUTINE PIPPRT Coapilif* Optione:/N0/N7/B/NC/ND/NF/H/NI/NK/NL/P/NQ1/NO2/NQ3/R/S/NT/U/NX/NZ1 
Source file Listing 


1524 C 

1525 C 

1526 C 

1527 

1528 

1529 C 

1530 

1531 

1532 

1533 

1534 

1535 

1536 

1537 

1538 

1539 

1540 

1541 

1542 

1543 

1544 

1545 

1546 

1547 C 

1548 

1549 


SUBROUTINE PIPPRT(XN9,R9,Dp,$UMLEN,Vpipe ff Tnak,Pnak,THICICP,RH0PIP, 
ftTHIDCI ,RHOINS,DPPIPE,PIPNAIC,PIPMAS) 


URITE (6,*) 
WRITE (6,*) 
URITE (6,*) 
URITE (6,*) 
WRITE (6,*> 
URITE (6,*) 
WRITE (6,*) 
WRITE (6,*) 
WRITE (6,*) 
URITE (6,*) 
WRITE (6,*) 
WRITE (6,*) 
URITE (6,*) 
URITE (6,*) 
WRITE (6,*) 
WRITE (6,*) 
WRITE (6, # ) 


PIPING DEFINITION VARIABLES' 

i 

NUMB. OF 90 DEG. ELBOWS OR EQUIV.*',XN9 

AVERAGE RADIUS FOR 90 DEGREE ELBOWS (INCHES)*' ,R9 

INSIDE PIPE DIAMETER (INCHES)*', Dp 

TOTAL LENGTH OF PIPE SYSTEM ( INCHES)*', SUMLEN 

NAJC VELOCITY IN PIPES ( FT/SEC )«',Vpipe 

NAJC TEMPERATURE (deg-R)*' ,Tnak 

NAJC PRESSURE (psia)-' ,Pnak 

PIPE WALL THICKNESS (INCHES)*' ,TH I OCP 

PIPE WALL DENSITY (LB/cu-FT)*' ,RH0P1P 

PIPE INSULATION THICKNESS ( INCHES)-', THICKI 

PIPE INSULATION DENSITY (LB/cu-FT)*',RH01NS 

PIPE SYSTEM PRESSURE DROP (PSID)*' ,DPPIPE 

PIPE SYSTEM MASS (LBS)*' ,PIPMAS 

PIPE SYSTEM NaK NASS (LBS) *',PIPNAIC 


RETURN 

END 
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1550 C 

1551 C 

1552 C 

1553 

1554 

1555 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580 

1581 

1582 

1583 

1584 

1585 

1586 

1587 

1588 

1589 

1590 

1591 

1592 

1593 C 

1594 

1595 


SUBROUTINE HSHXPTCIHXf lg,QOOT ( THIN,THOUT,TCIN # TCOUT f W)OTS,DENSSH, 
IDTUBE , TTUBE , WDOTT , AICTUBE , DPSHELL , ANTUBES , DPTUBE , D0TL2 , ALSHEL , 
8ANSHEU,ANPLATES # AMTUBES,ANETMASS,)MNHEX,HSHEU,AFRIC,UNEW,RETUBE, 
&THC,AMINSUL,AMHEADS,AMTSHT,AMSTRT> 


< 6 . 

< 6 , 

( 6 , 

(6, 

( 6 , 

(6, 

< 6 . 


WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE (6, 
WRITE <6, 
WRITE <6, 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 
WRITE 


( 6 , 

( 6 , 

< 6 , 

<6, 

( 6 , 

( 6 , 

( 6 , 

< 6 , 

( 6 , 

( 6 , 

( 6 , 

( 6 , 

( 6 , 

< 6 , 

< 6 , 

< 6 , 

< 6 , 

( 6 . 

( 6 , 

( 6 , 

( 6 , 

(6, 

( 6 , 

( 6 , 

( 6 . 

( 6 , 


HEAT SOURCE/S INK HEAT EXCHANGER DEFINITION' 

# 

TUBE SIDE FLUID FLAG -'.INXflg 

Heat Rat* or Duty (BTU/Hr) -'.QDOT 

HOT SIDE Inl*t Taaperatur* (R)-'.THIN 

HOT SIDE Outlet Taaperatur* (R)-'.THOUT 

COLD SIDE Inlet Taaperatur* (R>-',TCIH 

COLD SIDE Outlet Taaperatur* (R)-'.TCOUT 

SHELL SIDE FLUID Flowrate (Lba/Sec)*' .UDOTS/3600.0 

SHELL MATERIAL Denalty (Lb*/Ft A 3)»',DENSSH 

INSIDE TUBE Diaaeter ( Inches)*' .DTUBE 

TUBE Wall Thickness (Inches)*', TTUBE 

TUBE -SIDE Fluid Flowrste (Lbs/Sec)*' , UDOTT 

TUBE Wall Theraal Conductivity (BTU/Hr-Ft-R)*' .AKTUBE 

SHELLSIDE DP (PSID) -'.DPSHELL 

SHELLSIDE H (BTU/HR-sqFT-R)*' ,HSHELL 

FRIC-FAC -'.AFRIC 

UNEW (BTU/HR-sqFT-R) *',UNEW 

NUMBER OF TUBES IN BUNDLE *' .ANTUBES 

Tube Side Reynolds Ninber *' , RE TUBE 

Tube Side Pressure Drop (PSID) «' .DPTUBE 

Tifce Side Hg (BTU/Hr-sq.Ft-R) »',THC 

TUBE WALL THICKNESS (Inches) .TTUBE 

DOTL2 (Inches) -'.DOTL2 

LENGTH (Inches) -'.ALSHEL 

i 

INSULATION NASS (Lbs) -'.AMINSUL 

HEAD NASS (Lbs) -'.AMHEADS 

SHELL MASS (Lbs) -'.AMSHELL 

PLATE NASS (Lbs) -'.AMPLATES 

TUBE SHEETS NASS (Lbs) -'.AMTSHT 

TUBE NASS (Lbs) ANTUBES 

STRUCTURE AND BRACKETS NASS (Lbs) ■' .ANSTRT 

NASS OF HaK IN N-X (LBS) -'.XNNHEX 

Net Mass of Shell and Tube Uni t(DRY)(Lbs)-' , ANETNASS 


RETURN 

END 
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1596 C 

1597 C 

1598 C 

1599 SUBROUTINE PMPPRT(Tnak,Unak,DPPIPE,DPHX,DPMANIF,DPLOOP,Phyd, 

1600 &XMPUMP) 

1601 C 

1602 URITE <6,*> ' ' 

1603 URITE (6,*) 'NaK PUMP DEFINITION' 

1604 URITE (6,*) 9 9 

1605 URITE (6,*) 'NAX INLET TEMPERATURE (deg-R)-' ,Tnak 

1606 URITE (6,*) 'NAJC FLOURATE (LBS/SEC)*' ,Unak 

1607 URITE (6,*) 'PIPING SYSTEM PRESSURE DROP (PSID)«' ,DPPIPE 

1608 URITE <6,*> 'NAX SIDE HEAT EXCHANGER PRESSURE DROP (PSID)*' ,DPHX 

1609 URITE (6,*) 'NAJC MANIFOLD PRESSURE DROP (PSID)«',DPNANIF 

1610 URITE (6,*) # NaX LOOP PRESSURE DROP (PSID) «\DPLOOP 

1611 URITE (6,*) 'NaX LOOP PUMP POUER REQUIRED (HYDRAULIC) (UATTS) 

1612 IPhyd 

1613 URITE <6,*> 'E-M PUMP MASS (DRY) (LBS) *\XMPUMP 

1614 C 

1615 RETURN 

1616 END 



09/28/92 14:45:36 
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1617 C 

1618 SUBROUTINE VACPRT(XMNvac,XMVAC) 

1619 WRITE (6,*) ' ' 

1620 WRITE (6,*) 'NAK LOOP EXPANSION COMPENSATOR DEFINED' 

1621 WRITE (6,*) » » 

1622 WRITE (6,*) 'VOLUME ACCUMULATOR Nak NASS (Lbs) >',XNNvac 

1623 WRITE (6,*) 'VOLUME ACCUMULATOR NASS (WET) (Lbs) -\XNVAC 

1624 C 

1625 RETURN 

1626 END 
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1627 C 

1628 C 

1629 SUBROUTINE CONPRT(Ar,Gt,V,Dh,Cgt,Rel,Nl,Xtt,Rev, 

1630 tlf lutd, Caen, Man, Gap.THICKins.RHOina, Tout, 

1631 *Tbraze,TKcan,TKbraze,TKhp,XNpipes,XNexpipes,Pin,Tin,Xln,RHOpip, 

1632 8RHOcan,RHObraze,THICK«an,Thtp1p,UNan,Qred,XMAMaB*,DPaBn, 

1633 SDTfila) 

1634 C 

1635 URITE (6,*) 'HEAT PIPE COOLED CONDENSER DESCRIPTION' 

1636 URITE (6,*) ' ' 

1637 URITE (6,*) 'MANIFOLD FLAT LENGTH (Ft) >',Caan 

1638 URITE (6.*) 'MANIFOLD HEIGHT (Ft) -' ,Hnan 

1639 URITE (6,*) 'AVERAGE MANIFOLD COW). SURF. SPACE(Gap)(Ft) -'.Gap 

1640 URITE (6,*) 'MANIFOLD INSULATION THICKNESS (Ft) *',THICKins 

1641 URITE (6,*) 'MANIFOLD INSULATION DENSITY (Lbs/CU-Ft) -'.RHOins 

1642 URITE (6,*) 'NUMBER OF PRIMARY HEAT PIPES ATTACHED TO COOL CONDENS 

1643 8ER SURFACE -*,XNpipes 

1644 URITE (6,*) 'NUMBER OF REDUNDENT HEAT PIPES USED TO COOL CONDENSER 

1645 fc SURFACE -'.XNexpipe* 

1646 URITE (6,*) 'MANIFOLD WALL MATERIAL THICKNESS (Ft) -'.THICXaan 

1647 URITE (6,*) 'MANIFOLD-HEAT PIPE BRAZE MATERIAL THICKNESS (Ft) 

1648 ITbraze 

1649 URITE (6,*) 'HEAT PIPE UALL THICKNESS (Ft) -'.Thtpip 

1650 URITE (6,*) 'MANIFOLD UALL NAT. THERMAL COND. (B/HFR) »',TKcan 

1651 URITE (6,*) 'BRAZE MAT. THERMAL COND. (B/HFR) -'.TKbraze 

1652 URITE (6,*) 'HEAT PIPE UALL MAT. THERMAL COND. (B/HFR) -'.TKhp 

1653 URITE (6,*) 'MANIFOLD UALL MATERIAL DENSITY (Lb/cu-Ft) -'.RHOcan 

1654 URITE (6,*) 'BRAZE MATERIAL DENSITY (Lb/cu-Ft) -'.RHObraze 

1655 URITE (6,*) 'HEAT PIPE UALL MATERIAL DENSITY (Lb/cu-Ft) -'.RHOpip 

1656 URITE (6.*) 'HEAT PIPE UORKING FLUID NUMBER -'.Ifluid 

1657 URITE (6.*) ' ' 

1658 URITE (6,*) 'MANIFOLD OPERATING CONDITIONS' 

1659 URITE (6,*) ' ' 

1660 URITE (6,*) 'INLET PRESSURE (peia) -'.Pin 

1661 URITE (6,*) 'INLET TEMPERATURE (deg-R) -'.Tin 

1662 URITE (6,*) 'MEAN CONDENSER QUALITY >',Xin 

1663 URITE (6,*) 'OUTLET TEMPERATURE (deg-R) -'.Tout 

1664 URITE (6,*) 'MANIFOLD FLOUREATE (Lba/Hr) -',UMn 

1665 URITE (6,*) 'MANIFOLD DUTY (KUt) -'.Grad 

1666 URITE (6,*) ' ' 

1667 URITE (6,*) 'COMPUTED RESULTS' 

1668 URITE (6 *) ' ' 

1669 URITE (6**) 'MANIFOLD PRESSURE DROP (PSID) «',DP— n 

1670 URITE (6,*) 'MANIFOLD FILM TEMPERATURE DROP (deg-R) -'.DTfHa 

1671 URITE (6,*) 'FLOU CROSS-SECTIONAL AREA (eq ft)»',Ar 

1672 URITE (6,*) 'MASS FLUX (Iba/h aq ft)-',Ct 

1673 URITE (6,*) 'VAPOR VELOCITY. ft/a-'.V 

1674 URITE (6,*) 'HYDRAULIC DIAMETER -\Dh 

1675 URITE (6,*) 'CONDENSER CONDENSATE FLOU REGIME PARAMETER -'.Cgt 

1676 IF (Cgt.LE.0.3) THEN 

1677 URITE (6,*) 'CONDENSER IS OPERATING IN SHEAR FLOU REGIME' 

1678 ELSE 
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1679 

URITE (6,*) 

1680 

WRITE (6,*) 

1681 

END IF 

1682 

URITE (6,*) 

1683 

URITE (6,*) 

1684 

URITE (6,*) 

1685 

URITE (6,*) 

1686 

URITE (6,*) 

1687 

URITE (6,*) 

1688 C 


1689 

RETURN 

1690 

END 


'CONDENSER IS NOT OPERATING IN SHEAR FLOW REGIME' 


'CONDENSATE FILM REYNOLDS NUMBER «\Rel 
'SHEAR-CONTROLLED LIQ. FILM HEAT TRANSFE. COEFF.«',Hl 
'MART I NELLI PARAMETER «',Xtt 
'VAPOR REYNOLDS NUMBER »',Rev 
'MANIFOLD MASS (Lbs) >',XMAMaas 
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1691 C 

1692 C 

1693 C 

1694 SUBROUTINE HRENVROENf Ig, Halt, HINCL, Rsm,Yrlnch,Eelpha,Beta,Qsurw) 

1695 C 

1696 C **** VARIABLES DEFINITION **** 

1697 C 

1696 C IENf lg « FLAG TO SET ENVIRONMENT DESIRED 

1699 C » 1, EARTH ORBIT, LEO TO GEO USES GREATER OF DEBRIS 

1700 C OR METEORITE FLUX, NO DEBRIS ABOVE 2000 Km. 

1701 C ■ 2, BEYOND EARTH ORBIT, 0.25 TO 2.00 AU 

1702 C Halt * ORBIT ALTITUDE (fas) 

1703 C HINCL ■ ORBIT INCLINATION ANGLE (28.5 TO 80.0 degress, ONLY) 

1704 C Rsun ■ DISTANCE FROM SUN (AU) 

1705 C Yrlnch ■ YEAR IN WHICH VEHICLE IS PLACED IN ORBIT 

1706 C Ealpha • PRODUCT OF EARTH SHIELDING FACTOR AND METEORITE/DEBRIS 

1707 C FLUX CONSTANT (GM*B/N*2-SEC) 

1708 C Bata - METEORITE FLUX CONSTANT 

1709 C Tstnk - EFFECTIVE SINK TEMPERATURE (K) 

1710 C 

1711 GO TO (10,20), IENFLG 

1712 C COMPUTE DATA FOR EARTH ORBIT (LEO TO GEO) 

1713 10 IF (HINCL. LT. 28. 5.0R. HINCL. GT .80.0) THEN 

1714 WRITE (6,*) 'INVALID ORBIT INCLINATION ANGLE WAS INPUT' 

1715 WRITE (6,*) 'INPUT ORBIT INCLINATION ANGLE WAS (deg) >', HINCL 

1716 WRITE (6,*) 'INCLINATION ANGLE MUST BE BETWEEN 28.5 ANO 80 deg.' 

1717 STOP 

1718 ELSE 

1719 CONTINUE 

1720 ENDIF 

1721 DO 12 J-1,2 

1722 IF (J.EQ.1) THEN 

1723 X^IE-06 

1724 ELSE 

1725 XhfI.O 

1726 ENDIF 

1727 A1 ■ 1.0/((2200.0*(Xnl**0.306)*15)**4.38) 

1728 A2 ■ 1.3E-09/(Xib*((1E11)*(XM**2.0))*((1E27)*(XM**4.0))) 

1729 A3 - 1.3E-16/((X»*((1E06)*(X***2.)))**0.85) 

1730 ANt ■ (A1+A2+A3)*(1. 0/0.565) 

1731 IF (J.EQ.1) THEN 

1732 AX1 ■ ALOGIO(ANt) 

1733 ELSE 

1734 AX2 « ALOGIO(ANt) 

1735 ENDIF 

1736 12 CONTINUE 

1737 Alphal > AX2 

1738 Betal - (AX1-AX2)/6.0 

1739 C 

1740 C 

1741 C 

1742 


*** COMPUTE EARTH SHIELDING FACTOR, FOCUSING FACTOR 
Rorb > 6378.0 ♦ Halt 
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1743 Rearth > 637B.0 ♦ 100.0 

1744 Ge ■ 1.0 ♦ (Rearth/Rorb) 

1745 ETA ■ ASIN(Rearth/(Reerth+Halt*100.0)) 

1746 Sf - (1.0+COS(ETA))/2.0 

1747 DUH9 - Ge*Sf*(10.0**Alpha1) 

1748 EalphaN > ALOG10(DUM9) 

1749 C *** COMPUTE DEBRIS FLUX *** 

1750 IF (Halt.GT. 2000.0) THEN 

1751 UR1TE (6,*) 'EARTH ORBIT IS ABOVE DEBRIS REGION' 

1752 Ealpha * 10.0**Ealpl>aH 

1753 Beta ■ Betal 

1754 Qsuw - 443.0 

1755 GO TO 30 

1756 ELSE 

1757 CONTINUE 

1758 EHDIF 

1759 J-0 

1760 DO 14 J-1,2 

1761 IF (J.EQ.1) THEN 

1762 Xa - IE-06 

1763 D ■ (6.0*Xa/(4.7*3.141593))**0.333333 

1764 ELSE 

1765 Xai - 1.0 

1766 D « (6. 0*Xa/(2. 8*3. 141593))**0. 362319 

1767 EHOIF 

1768 IF (Trlnch.LT.2011) THEH 

1769 Q ■ 0.02 

1770 G1 ■ (1.0*Q)**(Yrlnch- 1988.0) 

1771 ELSE 

1772 Q ■ 0.04 

1773 G1 ■ ((1.0*0)**23.0)*{(1.0*0)**(Yrlnch-2011.0)) 

1774 ENOIF 

1775 P « 0.05 

1776 G2 ■ 1.0 ♦ (P*(Vrlnch-1988.0)) 

1777 FI - 1.22E-05/(D**2.5) 

1778 F2 * 8.1E+10/«D+700.0)**6.0) 

1779 S * 87.2 

1780 DUM1 « ( Halt/200. 0)+(S/140.0>-(1 .5) 

1781 PHONE - 10.0**DUN1 

1782 PHI > PHONE/(PHONE*1 .0) 

1783 DUM2 - <(ALOG10(D)-0.78)**2.0)/(0.637**2.0) 

1784 DUM3 - EXP(-DUM2) 

1785 HD - SQRT(10.0 M DUM3) 

1786 PSI - -<0. 313471 )*(0.084327*HINCL)-(0.00186*(HINCL**2.0))+ 

1787 8(0.000014*(HIHCL**3.0)) 

1788 DUM4 « <F1*G1)+(F2*G2) 

1789 ANt « 3.168896E-08*(HD*PHI*PSI*DUM4) 

1790 IF (J.EQ.1) THEN 

1791 AX1 » ALOGIO(ANt) 

1792 ELSE 

1793 AX2 > ALOGIO(ANt) 

1794 ENOIF 
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1795 14 CONTINUE 

1796 Alphs2 - AX2 

1797 Bets2 - (AX1-AX2)/6.0 

1798 Eslphs2 - 1.0*Alphs2 

1799 IF (Eslphs2.GT .EslphsM) THEN 

1800 Eslphs - 10.0**Eslphs2 

1801 Bits * Bets2 

1802 ELSE 

1803 Eslphs • 10.0**EslphsN 

1804 Bsts ■ Betsl 

1805 END IF 

1806 Qsunx ■ 443.0 

1807 C WRITE <6,*> 'Eslphs ■',ALOGl0<Eslphs) f 'Bsts -',Bets,'Osw *',Osisw 

1808 00 TO 40 

1809 20 CONTINUE 

1810 C 

1811 C *** COMPUTES METEORITE FLUX AWAY FROM EARTH ORBIT *** 

1812 C 

1813 DO 22 J«1,2 

1814 IF CJ.EQ.1) THEN 

1815 X«f1E-06 

1816 ELSE 

1817 XsH.O 

1818 ENDIF 

1819 A1 • 1.0/((2200.0*<XiS**0.306)+15)**4.38) 

1820 A2 ■ 1.3E-09/(X^((1E11)*(Xsf**2.0))+«1E27)*(X«**4.0))) 

1821 A3 ■ 1.3E-16/((X»^((1E06>*{X«f^2.)))**0.85) 

1822 ANt ■ (Al*A2*A3)*Cl.0/<Rsun**1.5>) 

1823 IF (J.EQ.1) THEN 

1824 AX1 ■ ALOGIO(ANt) 

1825 ELSE 

1826 AX2 ■ ALOGlO(ANt) 

1827 ENDIF 

1828 22 CONTINUE 

1829 Eslphs « 10.0**AX2 

1830 Bsts « (AX1-AX2)/6.0 

1831 Qsunx ■ 443.0*<(1.0/Rsin)**2.0) 

1832 30 CONTINUE 

1833 C WRITE <6,*> 'Eslphs «' f ALOG10(Eslphs) tf 'Bsts *',Bets, 'Qsun «',Qsim 

1834 40 RETURN 

1835 END 
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1836 C 

1837 C 

1838 C 

1839 SUBROUTINE HRARMRdENf lg,Halt,HINCL,Rsun,Yrlnch,GAM,ARSF,EarM,RHO 

1840 lara,Atarget,TiBe,Prob,TNp,Thara) 

1841 C 

1842 C THIS SUBROUTINE PREDICTS THE AMOUNT OF ARMOR REQUIRED 

1843 C TO PROVIDE A SPECIFIED NON-PUNCTURE PROBABILITY IN THE 

1844 C INTERPLANETARY ENVIRONMENT (EARTH-MARS) (NASA SP-8038, 1970) OR 

1845 C IN EARTH ORBIT (LEO-GEO) USING KESSLERS 1990 DEBRIS MODEL *** 

1846 C 

1847 C «* ARMOR THICKNESS IS COMPUTED FROM THE EMPIRICAL RELATIONSHIP 

1848 C PRESENTED BY HALLER AND LIEBLIEN (NASA-TN-D-4411), 1968. *** 

1849 C 

1850 C *** VARIABLES DEFINED *** 

1851 C lENflg - FLAG TO SET ENVIRONMENT DESIRED 

1852 C ■ 1, EARTH ORBIT, LEO-GEO 

1853 C - 2, BEYOND EARTH ORBIT, 0.25 TO 2.00 AU 

1854 C Halt - ORBIT ALTITUDE (Km) 

1855 C HINCL ■ 0R8IT INCLINATION ANGLE (Degrees) 

1856 C Rsun ■ 01 STANCE FROM SUN (AU) 

1857 C Yrlnch ■ YEAR IN WHICH VEHICLE IS PLACED IN ORBIT 

1858 C GAM.ARSF » PENETRATION CONSTANTS - FUNCTIONS OF THE SPECIFIC NAT'L 

1859 C RHOarm > ARMOR DENSITY (Lbs/cu-Ft) 

1860 C Ears ■ YOUNGS MODULUS OF ARMOR (Lbs/sq-In) 

1861 C Atarget - TARGET EXPOSED AREA (Sq-Ne) 

1862 C Taap ■ RADIATOR TEMPERATURE (K) 

1863 C Ealpha > METEORITE FLUX CONSTANT FROM HRENVR 

1864 C TIms « EXPOSURE TINE (Sacs) 

1865 C Prob « NON-PUNCTURE PROBABILITY (0.9, 0.99, 0.999, ETC.) 

1866 IF (IENf lg.EQ.2) THEN 

1867 RHOp * 0.5 

1868 Vp « 20.0 

1869 ELSE 

1870 RHOp « 4.7 

1871 Vp ■ 15.4 

1872 ENDIF 

1873 CALL HRENVRdENflg, Halt, HINCL, Rsun,Yrlnch,Ealpha.Beta,Qsuw) 

1874 Ca « 0.003657*SQRT(Ean*»32.174/RHOara) 

1875 A1 ■ GAM*ARSF*$QRT((RHQp*62.4)/RHOara)*((Vp/Ca)**0. 666667) 

1876 A2 - ((6.0/(3.141593*RH0p))**0.333333) 

1877 A3 ■ (1.0/(3.0*8eta)) 

1878 A4 ■ (Ealpha*Atarget*TiMe/(-AL0G(Prob)))**A3 

1879 A5 > (2.0/(2.0*BETA+2.0))**A3 

1880 A6 ■ (Taap/300.0)**0. 166667 

1881 TARM » A1*A2*A4*A5*A6 

1882 Thane * TARN/2.54 

1883 C RETURNS THICKNESS IN INCHES 

1884 RETURN 

1885 END 
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1886 C 

1887 C 

1888 C 

1889 SUBROUTINE HRT$NK(IENf Lg, Malt, HINCL,Rsun,Yrlnch, Alpha, Hap,HArad,Ts 

1890 & ink) 

1891 C ROUTINE TO ESTIMATE THE MAXIMUM SINK TEMPERATURE SEEN BY A 

1892 C BOOT IN ORBIT. EARTH REFLECTION AND EARTH RE-RADIATION IS 

1893 C CONSIDERED FOR BODIES IN LEO TO GEO EARTH ORBIT. 

1894 C 

1895 C INPUTS DEFINITION 

1896 C IENflg * FLAG TO SET ENVIRONMENT DESIRED 

1897 C ■ 1, LEO TO GEO 

1898 C * 2, BEYOND EARTH ORBIT 

1899 C Kelt - ORBIT ALTITUDE (Km) 

1900 C HINCL * ORBIT INCLINATION ANGLE 

1901 C Rtun * DISTANCE FROM SUN (AU) 

1902 C Yrlnch * YEAR IN WHICH VEHICLE IS PLACED IN ORBIT 

1903 C Alpha « RADIATOR SURFACE ABSORPTIVITY 

1904 C Hep « PROJECTED AREA (SQ-Feet) 

1905 C HArad ■ TOTAL RADIATING AREA (SQ-Feet) 

1906 C OUTPUT DEFINITION 

1907 C Tsink - EFFECTIVE SINK TEMPERATURE (K) 

1908 C ORBITAL CONSTANTS 

1909 C Sc « SOLAR CONSTANT 

1910 C Er * EARTH REFLECTION CONSTANT 

1911 C Ee> EARTH EMISSION CONSTANT 

1912 C R « EARTH RADIUS (N-MILES) 

1913 CALL NRENVROENf lg. Halt, HI NCL,Reun, Yrlnch, Ealpha, Beta, Qsmx) 

1914 IF (Rsun.EQ.1.0) THEN 

1915 Sc - 443.0 

1916 Er - 74.2 

1917 Ee - 65.9 

1918 ELSE 

1919 Sc ■ Qaunx 

1920 Er ■ 0.0 

1921 Ee « 0.0 

1922 END IF 

1923 R - 6378.0 

1924 AK ■ (R/(R*HAlt))**2.0 

1925 Qs - Sc*Alpha*HAp 

1926 Or * AK*Er*HAp 

1927 Oe - AK*Ee*HAp 

1928 Grad - Qs+Qr+Qe 

1929 Qf lux ■ Ored/ HArad 

1930 SIGMA - 1.714E-09 

1931 Tsink » ((Qf lux/S I GMA) **0.25) 

1932 C RETURNS Tsink IN (deg-R) 

1933 RETURN 

1934 END 
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1935 

C 


1936 

C 


1937 

c 


1938 


SUBROUTINE Fluidpro^If lu1d ff T0 t XiIqcten # Vapden f XUqvisc f Vapvisc # P0, 

1939 


1 Surf tan, Xlhv,Xk,X«w,Tcf luid) 

1940 

c 


1941 

c 

THERMODYNAMIC PROPERTIES USED FOR HEAT PIPE PERFORMANCE ESTIMATES 

1942 

c 


1943 


COMMON /RAD3/ Roaarien(10),Uhgp(159) 

1944 


Roondan(2)*1.000 

1945 


Roo*dan(3 >-0.971 

1946 


Rooarian(4 >-0.534 

1947 


RoondanC 5 >-0 . 862 

1948 


RoondanC 8 >*13.546 

1949 


RooiBdcn(9>*0.6120 

1950 


Tk-TO*273.2 

1951 


IF (If luId.EQ.2) THEN 

1952 


GOTO 8020 

1953 


ELSE 

1954 


CONTINUE 

1955 


ENDIF 

1956 


IF (If luld.EQ.3) THEN 

1957 


GOTO 8030 

1958 


ELSE 

1959 


CONTINUE 

1960 


ENDIF 

1961 


IF (If lufd.EQ.4) THEN 

1962 


GOTO 8040 

1963 


ELSE 

1964 


CONTINUE 

1965 


ENOIF 

1966 


IF (If luid.EQ.5) THEN 

1967 


GOTO 8060 

1968 


ELSE 

1969 


CONTINUE 

1970 


ENDIF 

1971 


IF (If luid.EQ.8) THEN 

1972 


GOTO 8080 

1973 


ELSE 

1974 


CONTINUE 

1975 


ENDIF 

1976 


IF (If lufd.EQ.9) THEN 

1977 


GOTO 8090 

1978 


ELSE 

1979 


CONTINUE 

1980 


ENDIF 

1981 

8100 WRITE (* *> 'TEMPERATURE OF ',T0 # 'CUT OF RANGE FOR ',Ifluid 

1982 


GOTO 9000 

1983 

C 

UATER 

1984 

8020 IF (T0.LE.5.0) THEN 

1985 


GOTO 8100 

1986 


ELSE 
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1967 CONTINUE 

1968 END IF 

1969 IF ( TO. GT. 433.0) THEN 

1990 GOTO 8100 

1991 ELSE 

1992 CONTINUE 

1993 ENDIF 

1994 Xli<ffisc»0. 0002414*10. 0**(247.8/(Tk-140.0)) 

1995 Vspvisc*0. 000001*10. 0**(2.5989-(179.3/Tk)) 

1996 IF ( TO. GT. 200.0) THEN 

1997 GOTO 8055 

1996 ELSE 

1999 CONTINUE 

2000 ENDIF 

2001 Xliqden « 0.01*10.0**(1.8079*(64.9/Tk)> 

2002 P0-I0.0**(8.625109-(2152.69/Tk)) 

2003 Vapdena0.2193*(P0/760.0)Ak 

2004 Surften»10.0**(1.06335*(259.17/Tk)) 

2005 Xthv»10.0**(2.46008*(100.7/Tk)) 

2006 GOTO 8057 

2007 8055 XI iqden«0. 609675*3. 02832E-03*T0-8.982149E-06*T0**2.0 

2008 P0»2.24732E-06*T0**4. 22186 

2009 Vapden*2.3S726E-07*EXP(0.01767*T0) 

2010 Surften-77.8092-0.208046*TO 

2011 Xlhv»200. 529*2. 93522*T0-8.30692E-03*T0**2.0 

2012 8057 Xk-1. 324 

2013 xrm-18.0 

2014 TcfLuid-0.000918*1.572E-06*Tk 

2015 RETURN 

2016 C SODIUM 

2017 8030 IF (TO. LE. 450.0) THEN 

2018 GOTO 8100 

2019 ELSE 

2020 CONTINUE 

2021 ENDIF 

2022 IF (TO. GT. 1100.0) THEN 

2023 GOTO 8100 

2024 ELSE 

2025 CONTINUE 

2026 ENDIF 

2027 Xliqden-1.0629-.0003167*Tk*7.244E-08*Tk**2.0 

2028 Vapden«EXP(-36.89+.04218*Tk-1.507E-05*Tk**2.0) 

2029 Xliqvisc-.006549-7.271E-06*Tk*2.52E-09*Tk**2.0 

2030 Vapvisc«5.724E-05*1.749E-07*Tk-2.466E-11*Tk**2.0 

2031 XI— 12.5847 

2032 X2«. 0354119 

2033 X3— 1.53891 E- 05 

2034 PO«EXP(X3*TO**2.0*X2*TO*X1) 

2035 Surf ten-193.2- .06442*Tk-7.388E-06*Tk**2.0 

2036 Xlhv»1215.0-.2569*Tk*5.976E-06*Tk**2.0 

2037 Xk*1 .68 

2038 Xsm-22.99 
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2039 Tcfluid».2389*(1.0796-.0007057*Tk+2.188E-07*Tk**2.0) 

2040 RETURN 

2041 C LITHIUM 

2042 8040 IF (T0.LE.800.0) THEN 

2043 GOTO 8100 

2044 ELSE 

2045 CONTINUE 

2046 END IF 

2047 IF (TO.GT. 1800.0) THEN 

2048 GOTO 8100 

2049 ELSE 

2050 CONTINUE 

2051 END IF 

2052 P9*1333.2 

2053 XUqdef*.5512-9.929E-05*Tk*1.085E-08*Tk**2.0 

2054 Vepden-EXP(-32.23+.021336*Tk-4.5573E-06*Tk**2.0) 

2055 XlfGvisc*.0033036-7.5424E-07*Tk*3.0799E-12*Tk**2.0 

2056 Vepvisc«-2.229E-05+1.8848E-07*Tk-3.296E-11*Tk**2.0 

2057 PO - EXP(-8.347+0.02045*Tk-4.14E-06*Tk**2.0)/P9 

2058 Surftew486.8-.17573*Tk+1.1559E-05*Tk**2.0 

2059 Xlhv6396.0-1.401*Tk+1.8947E-04»Tk**2.0 

2060 Xk-1.54 

2061 y— Q/ 

2062 Tcfluid-.000012*T(H.10688 

2063 RETURN 

2064 C POTASSIUM 

2065 8060 IF (TO.LE. 100.0) THEN 

2066 GOTO 8100 

2067 ELSE 

2068 CONTINUE 

2069 END IF 

2070 IF (TO.GT. 900.0) THEN 

2071 GOTO 8100 

2072 ELSE 

2073 CONTINUE 

2074 ENDIF 

2075 Xliqdsn«0. 908358-2. 2445E-04*Tk-1.2746E-08*Tk**2.0 

2076 Vepden*EXP(0.8135742-8241.151/Tk-426986.1/Tk**2.0) 

2077 XI iqvisc— 4.3906E-04+2.0287/Tk-541 .09/Tk**2.0»164680.0/Tk**3.0 

2078 Vapvisc>3.8701E-05+1 .9825E-07*Tk-4.5283E-11*Tk**2.0 

2079 P0*750.06*EXP<9. 191863-9030. 992/Tk-433033.8/Tk**2.0) 

2080 Surf ten-141 .48-0.07392*Tk 

2081 Xlhv-0.23889*(2269.1-0.13184*Tk-0.0002003*Tk**2.0> 

2082 Xk*1.63 

2083 Xw-39.096 

2084 T9»1.8*Tk-459.7 

2085 Tcfluid«.16931*( .9669-4. 7904E-04*T9*1.3778E-07*T9**2.0-2.4884E-11* 

2086 8T9**3.0) 

2087 RETURN 

2088 C NASA MERCURY AS USED BY THERMACORE 

2089 8080 IF (T0.LE.10.0) THEN 

2090 GOTO 8100 
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2091 


ELSE 

2092 


CONTINUE 

2093 


END IF 

2094 


IF (T0.GT.800.0) THEN 

2095 


GOTO 8100 

2096 


ELSE 

2097 


CONTINUE 

2096 


ENDIF 

2099 

C 

*** INSERT P-TAELE HERE *** 

2100 

C 


2101 

C 

PRESSURE TABLE FOR MERCURY 

2102 


Uhgp(1) - 0.05796 

2103 


Uhgp(2) - 0.08958 

2104 


Whgp(3) * 0.1368 

2105 


Uhgp<4) - 0.2067 

2106 


Whgp<5) - 0.3087 

2107 


Uhgp<6) - 0.4562 

2108 


Whgp<7) * 0.6672 

2109 


Uhgp(8) ■ 0.9658 

2110 


Uhgp(9) * 1.384 

2111 


Whgp(IO) * 1.965 

2112 


Uhgp<11) * 2.763 

2113 


Whgp(12) - 3.850 

2114 


Uhgp(13) * 5.317 

2115 


Whgp(14) * 7.280 

2116 


Uhgp(15) ■ 9.885 

2117 


Whgp<16) * 13.31 

2118 


Whgp<17) * 17.79 

2119 


Whgp{18) * 23.59 

2120 


Whgp(19) * 31.05 

2121 


Uhgp{20> * 40.57 

2122 


Uhgp(21> » 52.64 

2123 


Uhgp<22) * 67.84 

2124 


UhgpC23) * 86.85 

2125 


Uhgp(24) « 110.5 

2126 


Uhgp<25) ■ 139.7 

2127 


Whgp(2 6) « 175.5 

2128 


*igp<27> * 219.3 

2129 


Uhgp(28> ■ 272.4 

2130 


Uhgp(29) * 336.5 

2131 


Uhgp(30) * 413.6 

2132 


Uhgp(31) * 505.7 

2133 


Uhgp(32) * 615.2 

2134 


UhgpC33) * 744.9 

2135 


Uhgp(34) * 897.7 

2136 


Whgp<35) « 1077.0 

2137 


Uhgp<36> - 1286.0 

2138 


Uhgp<37) ■ 1530.0 

2139 


Uhgp(38) - 1813.0 

2140 


Uhgp(39) * 2139.0 

2141 


Uhgp(40) ■ 2514.0 

2142 


Uhgp<41) * 2944.0 
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2143 

Uhgp(42) 


3426.0 

2144 

Vhgp<43) 


3996.0 

2145 

MiSP(44) 


4632.0 

2146 

Uhgp(45) 


5351.0 

2147 

Uhgp<46) 


6164.0 

2148 

Uhgp(47) 


7078.0 

2149 

Whgp(48) 


8104.0 

2150 

Uhgp(49) 


9254.0 

2151 

Uhgp(50) 


10540.0 

2152 

Uhgp(51) 


11970.0 

2153 

Uhgp(52) 


13560.0 

2154 

Uhgp(53) 


15320.0 

2155 

Uhgp(54) 


17280.0 

2156 

Uhgp(SS) 


19440.0 

2157 

Uh«X56) 


21820.0 

2158 

Uhgp(57) 


24440.0 

2159 

Uhgp(58> 


27310.0 

2160 

Whgp(S9) 


30470.0 

2161 

Wigp(60) 


33930.0 

2162 

Uhgp(61 ) 


37710.0 

2163 

Uhgp(62) 


41840.0 

2164 

Whgp(63) 


46330.0 

2165 

Uhgp(64) 


51230.0 

2166 

Uhgp(65) 


56550.0 

2167 

Uhgp<66) 


62320.0 

2168 

Uhgp(67) 


68580.0 

2169 

Uhgp(68) 


75360.0 

2170 

Uhgp(69) 


82680.0 

2171 

Uhgp(7D) 


90600.0 

2172 

Uhgp<71) 


99140.0 

2173 

Uhgp<72) 


108300.0 

2174 

Uhgp<73) 


118200.0 

2175 

Uhgp(74) 


128900.0 

2176 

Uhgp(7S) 


140300.0 

2177 

Uhgp<76) 


152600.0 

2178 

Uhgp<77) 


165800.0 

2179 

Uhgp(78) 


179900.0 

2180 

Wigp<79) 


194900.0 

2181 

MiflfXaO) 


211000.0 

2182 

Uhgp<81) 


228200.0 

2183 

M»gp(82) 


246600.0 

2184 

Uhgp(83) 


266200.0 

2185 

Uhgp(84) 


287000.0 

2186 

Uhgp(85) 


309100.0 

2187 

Uhgp(86) 


332700.0 

2188 

Uhgp(87) 


357700.0 

2189 

Uhgp(88> 


384200.0 

2190 

Migp<89) 


412400.0 

2191 

Uhgp(90) 


442200.0 

2192 

Whap{91) 


473700.0 

2193 

Uhgp<92) 


507000.0 

2194 

Uhgp(93) 


542200.0 
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2195 

Uhgp(94) » 

579300.0 

2196 

Uhgp(95) ■ 

618400.0 

2197 

Uhgp<96) « 

659700.0 

2196 

Migp(97) ■ 

703000.0 

2199 

Uhgp(98) ■ 

748700.0 

2200 

Uhgp(99) ■ 

796600.0 

2201 

Uhgp(IOO) 


846800.0 

2202 

Whgp(IOI) 


899600.0 

2203 

Uhgp(IOZ) 


954800.0 

2204 

Uhgp(103) 


1013000.0 

2205 

Uhgp<104) 


1073000.0 

2206 

Wigp<105) 


1136000.0 

2207 

Uhgp(106) 


1202000.0 

2208 

Whgp(107) 


1271000.0 

2209 

Migp<108) 


1342000.0 

2210 

Uhgp(109) 


1417000.0 

2211 

Uhgp<110) 


1494000.0 

2212 

Whgp( 111) 


1575000.0 

2213 

Uhgp(112) 


1658000.0 

2214 

Whgp(113) 


1745000.0 

2215 

Mhgp<114> 


1835000.0 

2216 

Uhgp(115) 


1927000.0 

2217 

Uhgp(116) 


2024000.0 

2218 

Uhgp(117) 


2123000.0 

2219 

Uhgp(118) 


2225000.0 

2220 

Uhgp<119) 


2331000.0 

2221 

Uhgp<120) 


2441000.0 

???? 

Whgp<121) 


2553000.0 

2223 

Uhgp(122) 


2669000.0 

2224 

Wigp(1Z3) 


2788000.0 

2225 

Utgp(124) 


2911000.0 

2226 

Uhgp(125) 


3037000.0 

2227 

Whgp<126) 


3166000.0 

2228 

Uhgp(127) 


3299000.0 

2229 

Uhgp(128) 


3436000.0 

2230 

Uhgp(129) 


3576000.0 

2231 

Whgp(130) 


3719000.0 

2232 

Uhgp(131) 


3867000.0 

2233 

Uhgp(132) 


4018000.0 

2234 

Uhgp(133) 


4173000.0 

2235 

Migp(134) 


4332000.0 

2236 

Uhgp(135) 


4495000.0 

2237 

Whgp<136) 


4662000.0 

2238 

Uhgp(137) 


4834000.0 

2239 

Uhgp(138) 


5010000.0 

2240 

Wigp(139) 


5191000.0 

2241 

Migp<140) 


5377000.0 

2242 

Whgp(141) 


5568000.0 

2243 

Uhgp(142) 


5766000.0 

2244 

Migp(143) 


5969000.0 

2245 

Uhgp(144) 


6179000.0 

2246 

Uhgp(145) 


6396000.0 
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2247 

2248 

2249 

2250 

2251 

2252 

2253 

2254 

2255 

2256 

2257 

2258 

2259 

2260 
2261 
2262 

2263 

2264 

2265 

2266 

2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 
2281 
2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 


Uhgp(146) 
Uhgp<147) 
Uhgp<148) 
Uhgp<149) 
Whgp<150) 
Uhgp(151) 
Uhgp(152) 
Uhgp(153) 
Uhgp<154) 
Uhgp(155) 
Uhgp(156) 
Uhgp<157) 
Uhgp<158) 
Uhgp<159) 
AO 
A1 
A2 
A3 
A4 
A5 


■ 6620000.0 
« 6853000.0 
« 7094000.0 

- 7345000.0 

- 7607000.0 

* 7880000.0 
■ 8165000.0 

- 8465000.0 

* 8779000.0 

- 9110000.0 

* 9460000.0 
« 9830000.0 

- 10220000.0 

* 10640000.0 
0.0060783 
-3.1546E-05 
8.04366*08 
-1.0538E-10 
6.9127E-14 
-1.7981E-17 

X 1 1 qv 1 sc«AO+A 1 *T k+ A2*T k**2 • 0*A3* T k**3 . 0+A4*T k**4 . 0»A5*Tk**5 . 0 

Xl1qv1sc*XL1qv1sc*10.0 

AO • -2.0271E-05 

A1 ■ 3.0869E-07 

A2 ■ -7.8612E-10 

A3 • 1.2985E-12 

A4 ■ -9.7932E-16 

A5 • 2.7985E-19 

Vepvl sc«AO+A1*Tk*A2*Tk**2 .0+A3*TK**3 . CM-A4*Tlc**4 . 0«-A5*Tk**5 . 0 

Vepv1sc«Vepv1sc*10.0 

AO - 7787.0 

A1 - 55.864 

A2 » -0.19524 

A3 - 3.0795E-04 

A4 « -2.3092E-07 

A5 « 6.631E-11 

XII qden«AO*A1 *T k*A2*Tk**2 • 0*A3*Tk**3 • 0*A4*Tk**4 .0*A5*Tk**5 . 0 

XUqden-XUqden*0.001 

AO « -69.042 

A1 « 0.37673 

A2 « -8.7608E-04 

A3 « 1.0875E-06 

A4 « -6.8926E-10 

A5 - 1.7519E-13 

Vspden»AlKA1*Tk^A2*Tk**2 .0*A3*Tk**3 . 0+A4*Tk**4 .<HA5 # Tk**5 .0 
Vspden«EXP( Vspden)*0 .001 
AO - -58.282 
A1 ■ 0.36094 
A2 * -8.1354E-04 


A3 - 9.8676E-07 
A4 « -6.1379E-10 
A5 ■ 1.5358E-13 
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2299 PO«AO*A1 *Tk+A2*Tk**2 . 0*A3*Tk**3 . 0+A4*Tk**4 . 0+A5*Tk**5 . 0 

2300 PO*10.0*EXP(P0)/1333.2 

2301 AO * 0.67466 

2302 A1 « -0.0015864 

2303 A2 « 4.8201E-06 

2304 A3 « -7.5378E-09 

2305 A4 « 5.2245E-12 

2306 A5 « -1.3472E-15 

2307 Surft«n^0*A1*Tk+A2*Tk**2.0*A3*Tk**3.0*A4*Tk**4.0*A5*Tk**5.0 

2308 Surften«$urf ten* 1000.0 

2309 AO - 316360.0 

2310 A1 - -27.136 

2311 A2 - -0.063935 

2312 A3 « 1.7119E-04 

2313 A4 ■ -1.6668E-07 

2314 A5 « 4.4864E-11 

231 5 X lhv»AO*A1*Tk+A2*Tk**2 .0+A3*Tk**3 . D+A4*Tk**4 .0+A5*Tk**5 .0 

2316 Xlhv«0.001*Xthv/4. 184139 

2317 AO * 4.0347 

2318 A1 « 0.16674 

2319 A2 * -5.1079E-06 

2320 A3 * -1.7922E-09 

2321 A4 * 1.1886E-12 

2322 A5 • -3.0063E-16 

2323 Tcf luid«A0*A1 *Tk+A2*Tk**2 .0*A3*Tk**3 . 0*A4*Tk**4 .0+A5*Tk**5 . 0 

2324 Tcflui<M.001*Tcfluid/4. 184139 

2325 Xk-1 .663 

2326 Xs»^200.59 

2327 RETURN 

2328 C AMMONIA 

2329 8090 IF (TO. LE. -60.0) THEN 

2330 GOTO 8100 

2331 ELSE 

2332 CONTINUE 

2333 END IF 

2334 IF (TO. GT. 120.0) THEN 

2335 GOTO 8100 

2336 ELSE 

2337 CONTINUE 

2338 END IF 

2339 XliqdenFl .887137-0 .165350E-02*Tk)*(3.96285E-05*Tk**2.0)- (5.02087 

2340 49E-08*Tk**3.0) 

2341 Vapden* 16. 065461 3573- (0.341 10173779*Tk)+(2.9277649457DE-03*Tk**2. 

2342 40) -( 1.27231 714826E-05*Tk**3.0)+(2.76697543450E-08*Tk**4.0)- (2.003 

2343 476015440E-11*Tk**5.0)-(2.31634291110E-14*Tk**6.0)+(3.54492347343E 

2344 4-17*Tk**7.0) 

2345 Xllqvisc-(8.162646E-02)-(9.845264E-04*Tk>*(4.593305E-06*Tk**2.0>- 

2346 4(9.472753E-09*Tk**3.0)*(7.192006E-12*Tk**4.0) 

2347 Vapvisc*-! .961381E-04*(2.789346E-06*Tk)-(1.024679E-08*Tk**2.0)+(1 

2348 4.432595E-11*Tk**3.0) 

2349 TduMiv-Tk*1 .8 

2350 PdMy-EXP( 13 .89430- (4618 .37/(Td»y- 19) ) ) 
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2351 PO * Pduaay*70.3077 

2352 Surften^94 .9794*< 1 - < <Tk/405 .56)**! .15191)) 

2353 Xlhv- 2296.721959+<39.685263*Tk)-(0.218296*Tk**2)+(5.240955E-04*T 

2354 6k**3.0)- (4.734 199E-07*Tk**4) 

2355 Xk«1.33 

2356 Xew-17.03 

2357 Tcfluid--(2.441905E-04)+(1.284515E-05*Tk)-(2.651515E-08*Tk**2.0) 

2358 9000 RETURN 

2359 END 


V 
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2360 C 


2361 C 


2362 C 


2363 

SUBROUTINE Tsst(If luid,P9,P0 f TO) 

2364 C 


2365 C 

CALCULATE TEMPERATURE FROM PRESSURE 

2366 C 


2367 

COMMON /RAD3/ Roonden(10),Uhgp(159) 

2368 

IF (If luid.EQ.2) THEN 

2369 

GOTO 9110 

2370 

ELSE 

2371 

CONTINUE 

2372 

ENDIF 

2373 

IF (If Luid.EQ.3) THEN 

2374 

GOTO 9220 

2375 

ELSE 

2376 

CONTINUE 

2377 

ENDIF 

2378 

IF (IFLUID.EQ.4) THEN 

2379 

GOTO 9230 

2380 

ELSE 

2381 

CONTINUE 

2382 

ENDIF 

2383 

IF (IFLUID.EQ.5) THEN 

2384 

GOTO 9120 

2385 

ELSE 

2386 

CONTINUE 

2387 

ENDIF 

2388 

IF (If luid.EQ.8) THEN 

2389 

GOTO 9170 

2390 

ELSE 

2391 

CONTINUE 

2392 

ENDIF 

2393 

IF (If luid.EQ.9) THEN 

2394 

GOTO 9180 

2395 

ELSE 

2396 

CONTINUE 

2397 

ENDIF 

2398 C 

UATER 

2399 9110 

IF (PO.LE. 12750.0) THEN 

2400 

GOTO 9115 

2401 

ELSE 

2402 

CONTINUE 

2403 

ENDIF 

2404 

TO* (P0/2.24732E- 06 )**0. 2368624 

2405 

RETURN 

2406 9115 

TO*-2152.69/((ALOG(P0)/2.30259>-8.625109)-273.2 

2407 

RETURN 

2408 C 

POTASSIUM 

2409 9120 X*$ORT((-9030.9923)**2-4*(ALOG(P0/750.06)-9.191863)*433033.8) 

2410 

TO*(-9030.9923-X)/(2*(ALOG(P0/750.O6)-9.191863>)-273.2 

2411 

RETURN 
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SUBROUTINE TSAT Coapilir* 0ptions:/N0/N7/B/NC/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/U/NX/NZ1 
Source file Listing 


2412 

C 

NASA MERCURY 

2413 

9170 

Prwwa*PO*133.32 

2414 


DO 9171 I«2,159,1 

2415 


IF <PnM*.GT.Uh 0 p(!)> THEN 

2416 


GOTO 9171 

2417 


ELSE 

2418 


CONTINUE 

2419 


ENDIF 

2420 


GOTO 9172 

2421 

9171 

CONTINUE 

2422 


WRITE ( 6 ,*) "NASA MERCURY PRESSURE TOO HIGH — JOB ABORTED" 

2423 


RETURN 

2424 

9172 

T1«280*CI-1>*5-5 

2425 


Xtk«T1+((Pn»M-Uhgp<I-1))/(Uhgp<I)’Uhgp(I*1)))*5 

2426 


TO • Xtk-273.2 

2427 


RETURN 

2428 

C 

AMMONIA 

2429 

9180 

P»«0.0142232*P0 

2430 


U»<4618.37/(13.89430-ALOG(P«)))+19 

2431 


TO » (T«/1.8)-273.2 

2432 


RETURN 

2433 

C 

SODIUM 

2434 

9220 

XI— 12.5847 

2435 


X2«. 0354119 

2436 


X3-1.53891E-05 

2437 


T0*( -X2+SQRT (X2**2-4*X3*(X1 - ALOG(PO) ) ) )/(2*X3 ) 

2438 


RETURN 

2439 

C 

LITHIUM 

2440 

9230 

T0*( .02045 -SORT (4. 18203E-04-1 .656E-05*(ALOG(P0 f *P9)+8.347) ))/8, 

2441 

806*273.2 

2442 


RETURN 

2443 


END 
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SUBROUTINE UALIPROP CoapHing Options: /N0/N7/B/NC/N0/NF/H/N I /NK/NL/P/N01 /NQ2/NQ3/R/S/NT/U/NX/NZ1 
Source file Listing 


2444 

C 


2445 

C 


2446 

C 


2447 


SUBROUTINE WaUprop<I»tl JO # UaUden,ToiaU) 

2448 

C 


2449 

c 

DENSITY AND THERMAL CONDUCTIVITY OF HEAT PIPE WALL MATERIALS' 

2450 

c 

USED IN HEAT PIPE PERFORMANCE CALCULATION SUBROUTINE 

2451 

c 


2452 


IF (Intl.EQ.1) THEN 

2453 


GOTO 9200 

2454 


ELSE 

2455 


CONTINUE 

2456 


END IF 

2457 


IF (Iaatl.EQ.2) THEN 

2456 


GOTO 9210 

2459 


ELSE 

2460 


CONTINUE 

2461 


ENDIF 

2462 


IF (lMtl.EQ.3) THEN 

2463 


GOTO 9220 

2464 


ELSE 

2465 


CONTINUE 

2466 


ENDIF 

2467 


IF (lMtl.EQ.4) THEN 

2468 


GOTO 9230 

2469 


ELSE 

2470 


CONTINUE 

2471 


ENDIF 

2472 


IF (lMtl.EQ.5) THEN 

2473 


GOTO 9240 

2474 


ELSE 

2475 


CONTINUE 

2476 


ENDIF 

2477 


IF (lMtl.E0.6) THEN 

2478 


GOTO 9250 

2479 


ELSE 

2480 


CONTINUE 

2481 


ENDIF 

2482 


IF (lmtl.EQ.7) THEN 

2483 


GOTO 9260 

2484 


ELSE 

2485 


CONTINUE 

2486 


ENDIF 

2487 


IF (IMatl.EQ.8) THEN 

2488 


GOTO 9270 

2489 


ELSE 

2490 


CONTINUE 

2491 


ENDIF 

2492 

c 

TUNGSTEN 

2493 

9200 

Uallden*19.35 

2494 


Total l«0.298-0.000024*T0 

2495 


RETURN 
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SUBROUTINE UALLPROP Compiling Options: /N0/N7/B/NC/MD/N F/H/N I /NIC/N L/P/W 1 /NQ2/NQ3/R/S/NT /U/NX/NZ 1 
Source file Listing 


2496 

C 

MOLYBDENUM 

2497 

9210 

a 

• 

0 

1 
3 

2498 


Tcwal l«0. 3488-0. 0000617*(T0+273.2) 

2499 


RETURN 

2500 

C 

LOQCALLOY 

2501 

9220 

Ualldan*2.06 

2502 


Tcwall«0.5100611-4.19242E-04*T0 

2503 


RETURN 

2504 

C 

2S-0 ALUMINUM 

2505 

9230 

Wallden«2.85 

2506 


Tcwal 1-0.376701+1 .37458E-04*T0 

2507 


RETURN 

2508 

C 

347-CRES 

2509 

9240 

Uallden-8.03 

2510 


Tcwal L-0. 034393+3. 2975E-05*T0 

2511 


RETURN 

2512 

C 

CARBON -CARBON 

2513 

9250 

Walldan-1.86 

2514 


Tcwall-0.0362 

2515 


RETURN 

2516 

C 

NIOBIUM-0. 1*ZIRC0NIUN 

2517 

9260 

Uallden-840. 0*0.01 

2518 


Tcwal l* 0.1075+TO/30000.0 

2519 


RETURN 

2520 

C 

COPPER 

2521 

9270 

Ualldan-8.96 

2522 


Tcwal 1*0.934 

2523 


RETURN 

2524 


END 
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SUBROUTINE XLITHP Ccvapillixi 0ption«:/N0/N7/B/NC/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/U/NX/NZ1 
Source file Listing 


2525 C 

2526 C 

2527 C 

2528 SUBROUTINE XLITHP(T,RNO,CP,VIS,TK) 

2529 C 

2530 C THERMAL PROPERTIES OF LITHIUM LIQUID 

2531 C T - INPUT TEMPERATURE (deg-R) 

2532 C RHO ■ DENSITY (Lbs/cu-Ft) 

2533 C CP - SPECIFIC HEAT (BTU/LB-R) 

2534 C VIS ■ DYNAMIC VISCOSITY (Lb/Ft-Sec) 

2535 C TK « THERMAL CONDUCTIVITY (BTU/Hr-Ft-Sec) 

2536 C 

2537 RHO ■ 34.393537 - (0.003456*T) ♦ <2.080291E-07*<T**2.0» 

2538 CP » 1.356357 - (0.00068*T> ♦ <5.006625E-07*(T**2.0» • (1.805873E 

2539 6-10*<T**3.0)> ♦ (3.155294E-14*<T**4.0)> - (2.136471E-18*(T**5.0» 

2540 VIS • 0.001085 - <1.326497E-06*T) ♦ <7.245662E-10*<T**2.0» - <1.7 

2541 474380E-13*(T**3.0)) ♦ <1.632610E-17*<T**4.0» 

2542 TK - 25.235376 + <0.001588*T> 

2543 RETURN 

2544 END 
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SUBROUTINE XNAJCPR Compiling Options:/NO/N7/B/NC/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/W/NX/NZ1 
Source fit* Listing 


2545 C 
2544 C 

2547 C 

2548 SUBROUTINE XNAKPR(T,RHO,CP,VIS,TK) 

2549 C THERMAL PROPERTIES OF NaK LIQUID 

2550 C T ■ INPUT TEMPERATURE (deg-R) 

2551 C RHO ■ DENSITY (Lb/cu-Ft) 

2552 C CP - SPECIFIC HEAT (BTU/Lb-R) 

2553 C VIS ■ DYNAMIC VISCOSITY (Lb/Ft-SOC) 

2554 C TIC » THERMAL CONDUCTIVITY (BTU/Hr-Ft-R) 

2555 RHO ■ 58.54299- (0.00820B*T) 

2556 CP ■ 0.26478 - (0.000089*(T)) + <4.093060E-08*<T**2.0» - 

2557 t (4.532164E-12*(T**3.0>) 

2558 VIS ■ 0.000822 - <1.142435E-06*(T» ♦ {6.125737E-10*CT**2.0» 

2559 l (1.130181E-13*(T**3.0)> 

2560 TK ■ 7.313351 ♦ {0.013983*<T» - (7.660423E-06*(T**2.0» ♦ 

2561 & (1.189370E-09*(T**3.0» 

2562 RETURN 

2563 END 
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SUBROUTINE HEXEPR Coapiling 0ptions:/N0/N7/B/NC/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/V/NX/NZ1 
Source file Listing 

2564 C 

2565 C 

2566 C 

2567 SUBROUTINE HEXEPR(AMix,P«ix,Taix,QM,Cpnix,RhoMix,AMiix,Aknix f 

2568 tPraix) 

2569 C PROPERTIES OF HELIUM-XENON MIXTURES 

2570 C T IN deg-R 

2571 C WRITE (6,*) 'AaMa1x,Paix,Taix»',Aaaaix,Paix,TBix 

2572 Gas-1.667 

2573 Aa1*4.0 

2574 Aa2«131.3 

2575 X2-(AaMrix-Aa1)/(Aa2-An1) 

2576 X1-1.0-X2 

2577 Cpaix«4.97/Aauaix 

2578 Rhaaix«144.0*Paix*AsMaix/(1545.0*Taix) 

2579 IF (Taix.GT. 1000.0) THEN 

2580 GOTO 10 

2581 ELSE 

2582 Aarte*5.7E-06+1.45E-08*Taix 

2583 GOTO 100 

2584 END IF 

2585 10 IF (Taix.GT. 1600.0) THEN 

2586 GOTO 20 

2587 ELSE 

2588 Aauhe*8.867E-06+1.1333E-08*Taix 

2589 GOTO 100 

2590 ENDIF 

2591 20 Aauhe-1.1114E-05+9.930E-09*Taix 

2592 100 IF (Taix.GT. 1100.0) THEN 

2593 GOTO 30 

2594 ELSE 

2595 Akhe«0 . 0403+8 .471E-05*Taix 

2596 GOTO 200 

2597 ENDIF 

2598 30 IF (Taix.GT. 1800.0) THEN 

2599 GOTO 40 

2600 ELSE 

2601 Akhe*0. 0589+6. 7B6E-05*Taix 

2602 GOTO 200 

2603 ENDIF 

2604 40 Akhe-0. 0625+6. 583E-05*Taix 

2605 200 IF (Taix.GT. 1200.0) THEN 

2606 GOTO 50 

2607 ELSE 

2608 Aauxe«5.25E-06+2.1375E-08*Taix 

2609 GOTO 300 

2610 ENDIF 

2611 50 IF (Taix.GT .2000.0) THEN 

2612 GOTO 60 

2613 ELSE 

2614 Aauxe-1 .05006-05+1 .70006 -08*Taix 

2615 GOTO 300 
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SUBROUTINE HEXEPR Compiling Options: /N0/N7/B/NC/N0/N F/H/N I /NK/NL/P/N01 /NQ2/NQ3/R/S/NT /U/NX/NZ 1 
Sourca filo Listing 

2616 ENDIF 

2617 60 Aauxaal .5500E-05+1 .45E-08+Taix 

2618 300 IF (Taix.GT. 1200.0) THEN 

2619 GOTO 70 

2620 ELSE 

2621 Akxe-0.00115+4.375E-06*Taix 

2622 GOTO 400 

2623 ENDIF 

2624 70 IF (Taix.GT. 2500.0) THEN 

2625 GOTO 80 

2626 ELSE 

2627 Akxe«0. 00252+3. 2308E*06*Taix 

2628 GOTO 400 

2629 ENDIF 

2630 80 Akxe-0. 00342+1 .8000E-06*Taix 

2631 400 AaulaAauhe 

2632 Awu2»Aauxe 

2633 Akl-Akhe 

2634 Ak2*Akxe 

2635 Dua1-2.82843*SGRT(1.D+(Aa1/Aa2)) 

2636 D«a£*1 .0+SQRT(Aau1/Aau2)*(Aa2/Aa1 )*+0.25 

2637 Psi12*O«a£**2.0/Dkn1 

2638 DijaS«Aaii2/Aau1+(Aa1/Aa2) 

2639 Psi21*Oua3*Psi 12 

2640 Due4*1.0+Psi12*(X2/X1) 

2641 Du6-1.0+Psi21*(X1/X2) 

2642 Aauaix«Aau1/Dua4+Aau2/Dw6 

2643 DtN6*2.82843*SQRT(1.0+(Aa1/Aa2)) 

2644 Dua7«(1 .0+SGRTCAk1/Ak2)*{An1/An2)**0.25)**2.0 

2645 Dua8-2.82843*SQRT(1.0+(Aa2/Aa1)) 

2646 0u«P*<1.0+SQRT<Ak2/Ak1)*{Aa2/An1)**0.25)**2.0 

2647 A l aal 2«0ia7/0ia6 

2648 Alaa21^)u*9/DLafi 

2649 Dus10-(Aa1+Aa2>**2.0 

2650 0us11>2.41*(Aa1-Aa2)*(Aa1-0.142*Aa2) 

2651 Dua12«2.41*(Aa2-Aa1)*(Aa2-0.142*Aa1) 

2652 For12-Alaa12*(1.0HKa11/Dtja10) 

2653 For21«Alam21*(1 .0*Dua12/Dtai10) 

2654 Dua13«1.0+For12*(X2/X1> 

2655 Dua14-1.0+For21*(X1/X2) 

2656 Akaix-Ak1/DMl3+Ak2/Dw14 

2657 Prai x*3600*Aauai x+Cpai x/Akai x 

2658 C WRITE (6,*) ' ' 

2659 C WRITE (6,*) 'THERMODYNAMIC PROPERTIES OF HELIUM-XENON MIXTURES' 

2660 C WRITE (6,*) ' ' 

2661 C WRITE (6,*) 'Pressure (PSIA) »',Paix 

2662 C WRITE (6,*) 'Temperature (deg-R) *',Taix 

2663 C WRITE (6,*) 'Molecular Weight (MW) >',Aa«ix 

2664 C WRITE (6,*) ' ' 

2665 C WRITE (6,*) 'Specific Heat Ratio (Gaaaa) *' ,Gaa 

2666 C WRITE (6,*) 'Specific Heat (Btu/Lb-R) »',Cpaix 

2667 C WRITE (6,*) 'Density (Lb/cu-Ft) »',Rhoaix 

2668 C WRITE <6,*) 'Viscosity (Lb/Ft-Sec) »',Aaueix 
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Source file Listing 


2669 C 

2670 C 

2671 


WRITE <6,*> 'Therwal Conductivity (BTU/Hr-Ft-R) *',Akwix 

WRITE (6 # *> 'Prandlt Umber (o) «\Pmix 

END 
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SUBROUTINE HRRAD Coapiling 0ptiont:/N0/N7/B/NC/ND/NF/H/NI/NIC/NL/P/NQ1/NQ2/NQ3/R/S/NT/U/NX/NZ1 
Source file Listing 

2672 C 

2673 C 

2674 C 

2675 SUBROUTINE NRRAD(Qrad,Trad,Xntube8,Xnexpip,Xlf lat,Dhpipe, If luid, 

2676 Alaat l, Theta,D2rad, Thicks^ Thickf, Thick, Ea,lENflg, Halt, HINCL,Rstn, 

2677 AYrlnch,Alpha,Hap,HArad,Tkf in,Rhocoating,Rhof in,RHOana 

2678 A, Xladiab, CONFIG, X»chaes,PROB, GAM, ARSF,Earm,T1ae,Qrejected, 

2679 ATMckf2,Thickn2,Aradiator,Aradeffact,Uthick2,Xnart2,Artid2, 

2680 AArtwal l2,Thick2,Xlevap2,Xladi2,Xlspec2,Xltot2,Xapipes,X«f luid, 

2681 AXaif in,Xjacoating,Xaanaor,XMinBorid,Xstructure, 

2682 AXnetractoe*st2,Uxl2) 

2683 C 

2684 DIMENSION Dv<99),Space(99),T(99),Drad(99) 

2685 DIMENSION Qc(99),Qact(99),Eff (99) 

2686 COMMON /RAD3/ Rooaden(10),Uhgp(159) 

2687 C 

2688 C IF CONFIG - 1.0, RADIATOR IS A FLAT PLATE, ELSE IS A CONE OR CYL. 

2689 C 

2690 Pdeai * 1.0 - PROS 

2691 Qred - 34 13. 0*0 red 

2692 C 

2693 Angle2-Theta 

2694 Dhpipe-2.54*Dhpipe 

2695 CALL HRTSNKdENf Ig, Halt, HINCL,Raut,Yrlnch, Alpha, Hap, HA rad,Tsink) 

2696 Xlspec-6.0 

2697 Xnpunit - 1.0 

2698 Ixincr-50 

2699 Wvoid2-0.5 

2700 Vthick2-0.0020*Dhpipe 

2701 Art we l l2-0.0020*Dhpipe 

2702 Artid2-0.10*Dhpipe 

2703 Xnart2-ANINT(3.141593*Dhpipe/2.54) 

2704 C 

2705 810 Dp-Dhpipe 

2706 T(1)-Trad 

2707 840 Dv7*>p/2.54/12.0 

2708 850 CONTINUE 

2709 900 Q tot-0.0 

2710 Aatot-0.0 

2711 Vf bar-0.0 

2712 DO 1520 1-1,50,1 

2713 Xiv-FLQAT(I) 

2714 Xinc-FLOAT( Ixincr) 

2715 Dv< I )-Dv7 

2716 Drad( I )^>2rad*’2.0*Xlspec*SIN(Angle2/57.29578)*((Xi v)/Xinc) 

271 7 1060 SpaceC I )-3 . 141 593*0 rad ( I )/Xntii>es-Dv( I ) 

2718 Xlfrf1rv-12.0*Space(I)/2.0 

2719 1070 Deltax-Xlspec/XInc 

2720 1090 IF (I.EQ.1) THEN 

2721 D3*>2rad 

2722 ELSE 

2723 D3-0rad(I-1) 
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SUBROUTINE HRRAD Coapiling 0ptions:/N0/N7/B/NC/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/U/NX/NZ1 
Source file Listins 

2724 ENDIF 

2725 1110 Hnet*Xlspec*COS(Angle2/57.2957B) 

2726 1120 Dm>2radt(2.0*Xlspec*SIN(Angle2/57.29578)) 

2727 1130 D 2*0 rad (I ) 

2728 1140 IF (I.EQ.1) THEN 

2729 H2-Hnet 

2730 ELSE 

2731 H2*Hnet*(Deltax*COS(Angle2/57.29578)*(Xiv-1.0>) 

2732 ENDIF 

2733 1170 H1>H2*(Deltax*C0S(Angle2/57.29578)) 

2734 1180 CALL Viaw(D1,D2,D3,H1,H2,Aa,Vf) 

2735 Vf«Vf 

2736 IF (CONFIG. EQ. 1.0) Vf ■ 1.0 

2737 1190 Vfct«Vf 

2738 1200 Vfbar-Vfbar*(Vf«Aa) 

2739 1210 Aatot-Aatot+Aa 

2740 Xlavap*2.54*Xlf lat 

2741 Xladi*12.0*2.54*Xladiab 

2742 Xlcond-12.0*2.54*(Xlspec/Xinc)*Xlv 

2743 Pipid*Ohpipe 

2744 Uall-Th(ck*12.0*2.54 

2745 TstrtkaTrad/1.8 

2746 Qstart*(Qrad/XnttiMS)*0.2931 

2747 CALL HRKTPPdMtl,Ifluid,Xlevap,Xlad1,Xlcond,Pipid,UaU,Tstrtk,Qs 

2748 Itart ,Uthick2,Vvoid2,Artual l2 ( Artid2,Xnart2,T( I ) ,Fluidcharge, Totals 

2749 2asa) 

2750 TCI > ■ (T(I)>273.0)*1.8 

2751 Tsubr*Tsink/T(I) 

2752 Ahfin-Ert»1.7212E-09*(T(I)**3.0)*(1.0»(Ts«A>r**2.0))*(1.0»Tsi*r) 

2753 X»1«(((Ahfin/(Tkfin*Thickf))**0.5)*(Xlfrfin))/12.0 

2754 Fin1-(EXP(Xa1>-EXP(-Xa1))/(EXP(X»1)+EXP(-X«1» 

2755 Fin2-(1.0-(1.58*(1.0-EXP(-0.2*X*1))*(1.0-TsU>r))) 

2756 Eff(!>-(1.0/Xa1)*Fin1*Fin2 

2757 1460 X«fluid-<Fluidcharge/1000.0)*2.2046 

2758 1470 Xapipesa((Total«ass-Fluidcharge)/1000.0)*2.2046 

2759 1490 Qc( I )>X l spec/X i nc*( 1 . 0*Vf ct )*(Dv( I )*Ef f ( I >*Spece( I ) )*E^4 .77E - 13 

2760 1*<T(I)**4.0-Tsink**4.0) 

2761 1500 Qactd)aQc(I) 

2762 1510 Qtot-QtofGactd) 

2763 1520 CONTINUE 

2764 1530 Vfctbar*Vfbar/Aatot 

2765 Cl 540 URITE (6,*) 'Qtot ■' ,Qtot*3600.0*Xntii>es 

2766 1570 Error7*drad/(0tot*3600.0*Xnti*>es)-1.0 

2767 1580 Xlspec*Xlspec*(1.0+0.8*(Error7)) 

2768 1600 IF <A8S(Error7).GT.0.0001) THEN 

2769 Aatot-0.0 

2770 Vfbar*0.0 

2771 1-0 

2772 GO TO 850 

2773 ELSE 

2774 CONTINUE 

2775 ENDIF 
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2776 C HEAT PIPE RADIATOR MASS ALGORITHM 

2777 1720 Xlradiator*Xlspec 

2778 1730 Dv7 « 0.0 

2779 1740 Spece7 ■ 0.0 

2780 DO 1780 I«1,50,1 

2781 Dv7 ■ Dv7 ♦ Dv(I) 

2782 Spece7 * Spece7 ♦ Spece(I) 

2783 1780 CONTINUE 

2784 Dv7*Ov7/X1nc 

2785 Speee7«Space7/X I nc 

2786 1820 Aradiator*3.141593*(Drad(1)/2.0*0rad(Ixincr)/2.0)*$QRT(((Xlspec* 

2787 1COS<Thete/57.29578))**2.0)^(«Dred(Ix1ncr)/2.0)-(Dred(1)/2.0))**2. 

2788 20)) 

2789 1870 Xapipes«Xapipes*(Xntifces+Xnexpip) 

2790 1 880 Xaf 1 n-$pace7*Th i ckf *X l rad 1 at or*Rhof 1 n* ( Xnt ubes+Xnexpi p) 

2791 1890 Xafluid»Xafluid*(Xntii*s+Xnexpip) 

2792 1900 Aeoating*3. 141593/2. 0*(Dv7*Thick+Thicka/2.0)*Thickii*Space7*Thicka 

2793 1 91 0 Xacoot 1 ng*Acoe 1 1 ng*X l redi etor*Rhocaa 1 1 ng*( Xntii>es«Xnexp1 p) 

2794 1930 At«i>e4)v7*Xlradiator 

2795 1940 Jj«IFIX(Xnexpip*Xnpunit) 

2796 1950 Kkkk* I F I X (Xntubes )♦ J j 

2797 1960 P7«Pnew(PdesI , J j ,Kkkk) 

2798 1970 Prob*1.0-P7 

2799 Taap * T(49) 

2800 Atarget « A tube/ 10. 764961 

2801 1980 CALL HRARMRUENf lfl,Halt,HINCL,Rsisi,Yrlnch,GAM,AR$F,Eara,RHOara,At 

2802 target, Tia»,Prob,Taap,Thara) 

2803 WRITE (6,*) 'Thera (Inches) Thera 

2804 ThIckara>Thera/12.0 

2805 2050 Xasraor>Thickanrt>v7*Xlradiator*RhoaraP(Xntii»s*Xnexpip)*3. 141593/ 

2806 & 2.0 

2807 2555 FORMAT (6F12.4) 

2808 Th1ckf2-12.0*Thickf 

2809 Th1cka2>12.0*TMcka 

2810 Q rejected^ rad/34 13.0 

2811 C WRITE (*,*) * ' 

2812 C WRITE (*,*) 'TOTAL HEAT AVERAGE . Radiator Eaissfvity' 

2813 C WRITE (*,*) 'REJECTED EVAPORATOR FIN Coatir* ' 

2814 C WRITE (*,*) ' (KUt) TEMP (R) Thick (In) Thick (In)' 

2815 C WRITE (*,2555) Qrejected,Trad,Thickf2,Thicka2 

2816 Xltot*Xlspec+((Xladi+Xlevap)/(2. 54*12.0)) 

2817 Dv7*>v7*12.0*2.54 

2818 Thickera2»Thickera2*12.0 

2819 Aradef fect«(1 .0+Vfctbar)*Aradiator 

2820 C WRITE (*.*) ' ' 

2821 C WRITE (*,*) ' Actual Effective' 

2822 C WRITE (*,*) '(one-side) Radiator' 

2823 C WRITE (*,*) 'Aree(sq-Ft.) Area (sq- Ft)' 

2824 C WRITE (*,2555) Aradietor,Aredeffect 

2825 Dhpipe*Ov7/2.54 

2826 Thick2*Thick*12.0 

2827 C WRITE (*,*) ' ' 

2828 C WRITE (*,*) 'HEAT PIPE DESIGN DETAILS • DIMS in INCHES' 
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2829 C 

2830 C 

2831 C 

2832 

2833 

2834 

2835 

2836 

2837 

2838 

2839 

2840 

2841 C 

2842 C 

2843 C 

2844 

2845 C 

2846 C 

2847 C 

2848 C 

2849 C 

2850 C 

2851 C 

2852 C 

2853 C 

2854 C 

2855 C 

2856 

2857 


UNITE (*,*) ' Pipe ID Wick Thick iArteries Art ID 
1 Art Wall Pipe well' 

WRITE (6,2555) Dhpipe,Wthick2 f Xnert2 # Artid2 i ArtneU2 tf Thick2 

Xledi2-Xledi/2.54 

Xlevep2«Xlevap/2.54 

Xlspec2*Xlspec*12.0 

XI tot 2«X l tot *12.0 

Xnraori chXnraor 

Uxl2«13.2141*( <0.6072+0. 1514*Arediator)**0.5)-10. 296525 
Xetructure^O.O 

Xnetredaeeat2«X*pipee+X»f tui d+X»f i n*2 . CPX»coat ing+Xw*e^+X»rw>r+ 
IXaerworid+Xetructure 

MUTE <*,+) 'Evap Length Adi Length Cond Length Total Length' 
MUTE (*,2555) Xlevap2,Xladi2,Xlepec2,Xltot2 
WRITE (* *) 1 9 

Uxl2»13.2142*((0.6072*0.1514*Arediator)**0.5)-10. 296525 
WRITE (*,*) 'RADIATOR MASS BREAKDOWN - Mess in Lbs.' 

WRITE (*,*) 'Meet Pipes Fluid* FINS Eniss. Cont.' 

URITE (*,2555) Xnpipes,X*f luid,Xnf in,Xncoating 
WRITE (*,*) 'O.D. ARMOR 1 .D. ARMOR Structure TOTAL RADIATOR ' 

WRITE (*,2555) X»rs»r,Xnerwid,Xstructure f Xnetractaesst2 
WRITE (*,*) 'AREA(sq-M) ■',Aredietor/10. 764961, 'Mass(Kg) »',Xnetra 
1<Seesst2/2.2046, ' LENGTH (CM) «' ,Ux 12*1 2. 0*2. 54 

URITE (*,*) 'ETA »' ,282.5/Aredietor, ' MASS/AREA(#/sq- Ft . ) *',(Xne 
At redness t2)/Ared1 etor -*,«„**. 

WRITE (6,*) 'RADIATOR AREA REQUIRED <1 .129412*Accep> ■',0.104916*A 
Aredietor 
RETURN 
END 
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Sourct file Uating 

2858 C 

2859 C 

2860 C 

2861 2980 SUBROUTINE HRHTPP(I«atl,If luld f Xla,Xla f Xlc,P1pfd,WaU,Tstrtk,Qsta 

2862 1rt,VtMck2,Wvofd2 f ArtmU2,Arttd2,Xnart2,Taxtcond,Fluidcharge f Tota 

2863 2laa*s) 

2864 COMMON /RAD3/ Roonden(10),UhgpC159) 

2865 3030 P1pod-Pip1d*2.0*Wal l 

2866 C3040 UIQC STRUCTURE # 1 

2867 3050 UcapracM.001 

2868 3060 Uper«-0. 0000005 

2869 3070 Wvo1d-Wvoid2 

2870 3080 Wthick«Vthick2*2.54 

2871 3090 Artwal l«Artwal 12*2.54 

2872 3100 Art1d-Artid2*2.54 

2873 3110 Artod*Artid+2.0*ArtwaU 

2874 3120 Vapra*<Pipid-2.0*VtMck>/2.0 

2875 3130 Xnart*Xnart2 

2876 C 

2877 C3140 CHECK ARTERY SPACING AND VAPOR SPACE 

2878 3150 C1rcu^>3.141593*(2.0*Vaprad-Artod) 

2879 3160 IF «Xnart*Artod).GT.Circu»f) THEN 

2880 3170 WRITE (*,*) 9 ARTERIES TOO CLOSELY SPACED ' 

2881 3180 END IF 

2882 3190 Vaporaraa*3.141593*(Vaprad**2.0-Xnart*Artod**2.0/4.0) 

2883 3200 IF (Vaporaraa.LE.O.O) THEN 

2884 3210 WRITE <*,*) ' PIPE DIAMETER IS TOO SMALL — VAPOR SPACE IS <« 0' 

2885 3220 END IF 

2886 C CALCULATE EFFECTIVE AND HYDRAULIC DIAMETERS 

2887 3240 A0.141593*(Vaprad~2.0-Xnart*Artod**2.0/4.0) 

2888 3250 Ef f df«a*SQRT( 4. 0*A/3. 141593) 

2889 3260 Hydia»>4.0*A/(2.0*3.141593*Vaprad^Xnart*3.141593*Artod/2.0) 

2890 P9-1333.2 

2891 3280 Wetangle«0.0 

2892 3290 Effaraa»3.141596*Effdia**2. 0/4.0 

2893 C 

2894 3300 Artpar»Artfd**2.0/32.0 

2895 3730 flrtstart 

2896 3740 QO-Q/4.185 

2897 3750 Textevap»Tstrtk-273.0 

2898 3770 TO«Textevap 

2899 C 

2900 3780 CALL Uallprop(lNtl,TO,UaUden,TcwaU) 

2901 3790 Dtai»UaQ0*AL0G(Ptpod/P1pid)/(Tct«all*2.0*3.141593*Xla) 

2902 3810 TO»Taxtavap-Dtawall 

2903 3820 CALL FLuidpropdf lu1d,T0,Xliqden,Vapdan,XUqviac,VapvIsc,P0,Surfta 

2904 1n,Xlhv,Xk,XiM,Tcf lufd) 

2905 C 

2906 3830 CALL WaUpcop(I»atl,TO,UaUden f TcwaU) 

2907 3840 Tcwick»TcwaU 

2908 3860 Tcf UladWiek»Tcwick*(1.0-Wvoid*(1.0-Tcf luid/Tcwick)) 

2909 3870 DtawicM0*ALOG(Pipid/(2.0^aprad))/<Tcfmaduick*2.0*3.141593*Xla 

2910 1) 
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2911 3880 TO*Textevap-Dteual l -Dteui ck 

2912 CALL Fluldpropdf lu1d,TO,Xliqden,Vapden,Xl1qv1sc,Vepvtsc,PO,Surfte 

2913 1n,Xlhv,Xk,Xiw,Tcfluid) 

2914 C 

2915 3910 X0*P0*P9 

2916 3920 Dtevep1*TO+273.2 

2917 3930 X8»00/(<2.0*3.141593*Vaprad*Xnart*3.141593*Artod/2.0)*Xle) 

2918 3940 J«0 

2919 3950 T0*T0-0.1 

2920 CALL Flui^ropdf luid.TO.Xliqden.Vepden.Xliqvisc.Vepvisc.FO.Surfte 

2921 In.Xlhv.Xk.Xwi.Tefluid) 

2922 C 

2923 3970 X1«W*P9 

2924 3980 Otev«p2*TO+273.2 

2925 3990 X9»0.0000436*Xlhv*X»<*(X0/SORT<Xw(*Dtevap1>-X1/SORTCXeM*Dtev«p2» 

2926 4000 J«J+1 

2927 4010 IF (J.GT.200) THEN 

2928 GO TO 5670 

2929 ELSE 

2930 CONTINUE 

2931 END IF 

2932 4020 IF (X8.GT.X9) THEN 

2933 GO TO 3950 

2934 ELSE 

2935 CONTINUE 

2936 ENDIF 

2937 4030 Dtevep4tevep1*Dtevap2 

2938 4050 TbevTaxtevap-Dtewall-Dtewick-Dtevap 

2939 4060 TO-Tbev 

2940 CALL Fluldpropdf lu1d,TO,Xliqden,Vepden,Xl1cprisc,Vapv1sc,PO,Surfte 

2941 In.Xlhv.Xk.Xm.Tcfluld) 

2942 4080 Pbev-P0*P9 

2943 4100 Evepcepforce»2.0*Surften*COS(Metengle/57.29578)/Ucepred 

2944 4120 Eson1c«0.474*Efferee*Xlhv*SQRT(Vepden*Pbev) 

2945 4130 IF (QO.LT.Esonic) THEN 

2946 GOTO 4180 

2947 ELSE 

2948 4140 GOTO 5710 

2949 ENDIF 

2950 4180 Axvepwel-00/(Vepden*Efferee*Xlhv) 

2951 4190 Eexreyn»Vepden*Axvepvel*Hydi M/Vapvi sc 

2952 4200 Ff-16.0/Esxreyn 

2953 4220 C7-3.141593**2. 0/8.0 

2954 4230 C4«C7*00**2.0/(Eff«rea**2.0*Xlhv**2.0*Vepden) 

2955 4240 IF <Pbe>r**2.0.LT.I>bev**2.0»C7*Xle*Ff/Effdia**Vapdan*Axvapvel**2.0> 

2956 1THEN 

2957 GOTO 4250 

2958 ELSE 

2959 CONTINUE 

2960 ENDIF 

2961 4250 IF (4.0»C4*Ptoev.LE.Fbev**2.0> THEN 

2962 GOTO 4270 
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2963 ELSE 

2964 4260 GOTO 5750 

2965 END IF 

2966 4270 Dpv«viscous-Pbev-SQRT(Pbev**2.0-Pbev*2.0*C7*Xle*Ff/Effdia«*Vepden* 

2967 1Axvapvel*+2.0) 

2968 4280 Dpveinertial-(Pbev-$QRT<Pbev**2.0-4.0*C4*Pbev))/2.0 

2969 4290 XO-Pbev-Dpveirwrtial-Dpveviscous 

2970 4300 IF (X0.GT.0.0) THEN 

2971 GOTO 4400 

2972 ELSE 

2973 GOTO 5790 

2974 END IF 

2975 4400 Dpleert«Xl1qvisc*(Xle/2.0)*<Q0/Xnert)/(Artpeisrt(liqden*Xlhv*3.1415 

2976 193*Artid**2. 0/4.0) 

2977 4420 Xler*thf lou«3.141593*(Pip1d-Wthick)/C2.0*Xnsrt) 

2978 4430 Dpleuick«Xliqvisc*Xler«thf lou*(Q0/(2.0*Xnsrt»/(Uper«*XUqden*Xlhv 

2979 1*Xle*Uthick) 

2980 4450 PO*(Pbev-(Dpveinert1al*Opveviscous))/P9 

2981 4460 Peav«P0*P9 

2982 4470 CALL TsetCIf lu1d,P9, P0,T0) 

2983 4480 TeevTO 

2984 CALL Flui^>rop(If lu1d,T0,Xl1qden,Vapden,Xl1qvisc,Vapvisc,P0 # Surfte 

2985 1n,Xlhv,Xk,X»i,Tcflu1d) 

2986 4520 Axvapvei-QO/(Vapden*Efferee*Xlhv) 

2987 4530 Velsounc»>SQRT(Xlc*8.3144E^07*(Teev^273.2)/XaM> 

2988 4540 Eanech«Axvspvel/Velsound 

2989 4550 IF (Emch.LT.1.0) THEN 

2990 GOTO 4570 

2991 ELSE 

2992 4560 GOTO 5830 

2993 END IF 

2994 4570 Eamch-Eamch 

2995 4580 IF (Xle.EQ.O) THEN 

2996 GOTO 4950 

2997 ELSE 

2998 CONTINUE 

2999 END IF 

3000 4600 Adbcapforce«2.0*Surften*CQ$(Vetengle/57.29578)/Ucapred 

3001 4620 Axvapvel-QO/<Vapden*Effaree*Xlhv) 

3002 4630 Aax reyn* Vapden* Ax vapve l *Hyd \ am/Vapv 1 sc 

3003 4640 Ff*16.0/Aaxreyn 

3004 4650 IF (Aaxreyn.LE.2100.0) THEN 

3005 GOTO 4710 

3006 ELSE 

3007 CONTINUE 

3008 ENDIF 

3009 4660 IF < Aax reyn.GT. 30000.0) THEN 

3010 GOTO 4690 

3011 ELSE 

3012 CONTINUE 

3013 ENDIF 

3014 4670 Ff *0.0791 /Aax reyn**0. 25 
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3015 4680 GOTO 4710 

3016 4690 Ff *0 . 046/Aaxreyn**0 . 2 

3017 4710 P7«Peav 

3018 4720 IF (E«MCh.GT.0.15) THEN 

3019 GOTO 4750 

3020 ELSE 

3021 CONTINUE 

3022 END IF 

3023 4730 Dpvaviscous*2.0*Ff # Xla/Effdia^Vapden*Axvapvel # *2.0 

3024 4740 GOTO 4790 

3025 4750 Sonicf lag»0.0 

3026 4760 CALL Xiaach(Eamach,P7, Ff,X la ,Effdi an, Xk,X*8,Dptaviscous, Sonicf lag) 

3027 4770 IF (Sonicf lag.EQ. 0.0) THEN 

3028 GOTO 4790 

3029 ELSE 

3030 4780 GOTO 5870 

3031 END IF 

3032 4790 CONTINUE 

3033 4800 Dplaart«Xlfqvisc*Xla*(00/Xnart)/(Artpen<Xliqden*Xlhv*3.141593*Ar 

3034 1tid**2. 0/4.0) 

3035 4820 P0*(Peav-Dpvaviscous)/P9 

3036 4830 PacvP0*P9 

3037 4840 Aaaach*Xa6 

3038 4850 CALL TsatCIf luid,P9,P0,T0) 

3039 CALL FluidprcpOf luid t TO f Xliqden,Vapden tf Xliqvisc # Vapvisc,PO,Surfte 

3040 1n,Xlhv,Xk,Xm,Tcf luid) 

3041 4880 IF (Acsiach.GT.0.15) THEN 

3042 GOTO 5000 

3043 ELSE 

3044 CONTINUE 

3045 END IF 

3046 4900 Axvapvel*QO/(Vapden*Effarea*Xlhv) 

3047 4910 Velaound*SORT(Xk*8.3144E+07*(Teav*273.2)/XNM) 

3048 4920 Aca»di*Axvapvel/Vel8<xnd 

3049 4930 GOTO 5000 

3050 4950 Pacv*Peav 

3051 4970 Aoaach«E«aach 

3052 5000 CONTINUE 

3053 5020 Condcapforce»2.0 # Surftan*C0S(Uetangle/57.29578)/Ucaprad 

3054 5060 Axvapvt l -00/ ( Vapdan*Ef f ar#a*X l hv) 

3055 5070 CaxreymVapden*Axvapvel*Hydi«a/Vapvisc 

3056 5080 Ff«16.0/Caxrtyn 

3057 5090 IF (Cexreyn.LE.2100.0) THEN 

3058 GOTO 5140 

3059 ELSE 

3060 CONTINUE 

3061 ENOIF 

3062 5100 IF (Caxreyn.GT. 30000.0) THEN 

3063 GOTO 5130 

3064 ELSE 

3065 CONTINUE 

3066 END IF 
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3067 5110 Ff»0.0791/Caxreyn**0.25 

3068 5120 GOTO 5140 

3069 5130 Ff«0.046/Caxreyn**0.2 

3070 5140 CONTINUE 

3071 5150 Dpvcv1scous*2.0*Ff*(XLc/2.0)/Effdia«^Vapden*Axvapvel**2.0 

3072 5160 Dpve1nertial*-0.5*Vapden*Axvapvel**2.0 

3073 5180 Dplcart«Xliqvisc*(Xtc/2.0)*(Q0/Xnart)/(Artperart(Uqden*Xlhy*3.1415 

3074 193*Artid**2. 0/4.0) 

3075 5200 Xtengthf Low«3.141593*(Pipid-Wthick)/<2.0*Xnart) 

3076 5210 Dplcwick«XLiqvi*c*Xlengthf lou*(Q0/(2.0*Xnart))/(Upenrt(liqden*XLhv 

3077 1*Xlc*Vthick) 

3078 5230 P0*(Pacv- (Dpvc i nert i a l+Opvcvi scous) )/P9 

3079 5240 Pfcv»P0*P9 

3080 5260 IF (Pfcv.GT.0.0) THEN 

3081 GOTO 5290 

3082 ELSE 

3083 CONTINUE 

3084 END IF 

3085 5270 GOTO 6030 

3086 5290 CALL Tsatdf luid,P9,P0,T0) 

3087 5300 Tfcv-TO 

3088 ZotMLQAT(I) 

3089 5320 DtconcM>tevap*<Xle/Xlc)*CZot/50.0) 

3090 5340 TO«Tfcv-Dtcond 

3091 CALL FluidpropOfluid,TO ff Xliqden,Vapden,Xliqvisc,Vapvisc,PO,$urfte 

3092 1n,Xlhv,Xk,Xsu,Tcfluid) 

3093 5360 CALL Wallprop<I«etl,TO # WeUden # Tci*aU> 

3094 5370 Tcwick-Tcuall 

3095 5390 Tcf iUeduick-Tcuick*(1.0-Woid*(1.0-Tcf luid/Tcwick» 

3096 5400 Dtcwick"Q0*ALOG(Pipid/(2.0*Vaprad))/(2.0*3.141593*TcfiUedwick*Xlc 

3097 1)*(Zot/50.0) 

3098 5420 TO-Tfcv-Dtcond-Dtcuick 

3099 5430 CALL Uallprop(Inatl # TO # UaUden ff Tci«atl) 

3100 5440 DtcwaLl«QO*ALOG(Pi pod/Pi pid)/(Tc«a 11*2.0*3. 141593*Xlc)*(Zot/50.0) 

3101 5460 Textconc^Tfcv-Dtcond-Otcwfck-DtcwaU . 

3102 5465 Condenserdp-Opvcvfscous+Opvcinertial+OpLcart+Oplcttick 

3103 5490 IF (Condcapforce.LT.Condenserdp) THEN 

3104 GOTO 5950 

3105 ELSE 

3106 CONTINUE 

3107 ENOIF 

3108 5500 X*)pvcv1scous-Dpvc1nert1el 

3109 5510 IF (X.LT.0.0) THEN 

3110 X«0.0 

3111 ELSE 

3112 CONTINUE 

3113 ENOIF 

3114 5530 Xleftoverc*Condcapforce-X-Dplcart-Dplewiek 

3115 5540 IF (Xla.EQ.0.0) THEN 

3116 5550 Xleftovera«0.0 

3117 5560 GOTO 5610 

3118 ELSE 
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3119 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

3127 

3128 

3129 

3130 

3131 

3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 

3140 

3141 

3142 

3143 

3144 

3145 

3146 

3147 

3148 

3149 

3150 

3151 

3152 

3153 

3154 

3155 

3156 

3157 

3158 


CONTINUE 
5570 ENDIF 


5580 IF (Xleftoverc+Adbcepforce-Condcapforce.LT.Dplaviscoue+Oplaert) TH 
1EN 

GOTO 5990 
ELSE 

CONTINUE 

ENDIF 


5600 

5605 

5610 


5630 

5670 

5710 

5750 

5790 

5830 

5870 

5910 

5950 

5990 

6030 


X l ef t overe^X l eft overc+Adbcepf orce- Condcapf orce-Dpl evi scous-Dpl eert 
Evepcepforcedp-Opvevi sc ous+Opve inert tel+Opleert+Dplewi ck 
IF (Xleftovere+Evapcapf orce- Adbcapf orce .LT.Evepcepforcedp) THEN 


GOTO 6030 
ELSE 

GOTO 6060 
ENDIF 

WRITE (*,*) 'TOO MUCH EVAPORATION DELTA-T' 

WRITE <*,*) 'SONIC LIMIT EXCEEDED AT BEGINNING OF EVAPORATOR' 
WRITE <*,*> 'SORT IS NEGATIVE IN EVAP VISC DELTA-P EON' 

WRITE <*,*) 'EVAP VAPOR DELTA-P IS TOO HIGH' 

WRITE <*,*) 'SONIC LIMIT EXCEEDED AT E-A INTERFACE' 

WRITE <*,*) 'SONIC LIMIT EXCEEDED IN ADIABATIC SECTION' 

WRITE (*,*) 'TOO MUCH CONDENSER VAPOR DELTA-P' 

WRITE (*,*) 'NOT ENOUGH CAPILLARY FORCE IN CONDENSER' 

WRITE (*,*) 'NOT ENOUGH CAPILLARY FORCE IN ADIABATIC SECTION' 

WRITE <*,*) 'NOT ENOUGH CAPILLARY FORCE IN THE EVAPORATOR' 

STOP 


6060 Xlf^Xle+Xle+Xlc 

6070 Pipevoli^3.141593*(Pipod**2.0-Pipid**2.0)/4.0*Xlp*2.0*3.141593*P 
11pod**2.0/4.0*2.0*Wall 
6080 PiDeMSS*PiDevoluee*Wal l den 

6090 Uickvolu»e*3.141593*<Ripid**2.0-(2.0*Vaprad)**2.0)/4.0*Xlp«-Xnart*3 
1 . 141593*<Artod**2.0-Arti d**2.0)/4.0*Xlp 
6100 UickMSS-WickvoluM*<1.0-Wvoid)*WaUden 
6110 Artcryvol ua»aXnart*3 . 141593*(Artod**2 . 0-Art id**2 .0)/4 .0*Xlp 
6120 Artarvaa ««A rteryvoluiie*(1 .0-Uvoid)*Ual l den 

6130 Fluidchar9e«(Uickvolijae*Vvoid+)(nart*3.141593*Artld**2.0/4.0)*Rocari 
land fluid) 


6140 TotalMSS"Pipaaas»»WiclaMsa+ArteryMS*»f luidcharpe 
6160 RETURN 
ENO 
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SUBROUTINE XMACH Caviling 0ptior»:/N0/N7/B/NC/ND/NF/M/NI/NIC/NL/P/NQ1/MQ2/NQ3/R/S/NT/W/NX/NZ1 
Source file Listing 

3159 C 

3160 C 

3161 C 

3162 SUBROUTINE XaacMEaaiach^Ff ,XLa,Effdia*,Xk,X*B,Dplaviscous f Sonic 

3163 Iflag) 

3164 7200 X*7*Eamach 

3165 7210 X7*Xa7 

3166 7220 X3-4.0*Ff*Xla/Effdiaai 

3167 7260 X2*(1.0-Xa7**2.0)/(Xk # X«7* # 2.0)+{Xk+1.0)/(2.0*Xk)*ALOG<<Xk'*i.0)*X« 

3168 17**2.0/(2.0*(1.0*(Xk-1.0)/2.0* X»7**2.0»> 

3169 7300 X1«X2-X3 

3170 7310 IF (XI. GT .0.0) THEN 

3171 GOTO 7400 

3172 ELSE 

3173 CONTINUE 

3174 ENDIF 

3175 7320 IF (X1.LT.0.0) THEN 

3176 GOTO 7350 

3177 ELSE 

3178 CONTINUE 

3179 ENOIF 

3180 7330 XaB-I.O 

3181 7340 GOTO 7500 

3182 7350 Sonicflag*1.0 

3183 7360 RETURN 

3184 7400 X4*0.1 

3185 7410 Xa£«X7+X4*X7 

3186 7420 X«(1 .0-X*B**2.0)/CXk*XdB**2.0>+<Xk+1 .0>/(2.0*Xk)*ALOG«Xk+1 .0)+Xa£ 

31B7 1**2.0/(2.0*Cl.O+(Xk-1.0)/2.0*XB8**2.0))) 

3188 7430 IF (ABS((X1-X)/X1).LE.0.001) THEN 

3189 GOTO 7500 

3190 ELSE 

3191 CONTINUE 

3192 ENDIF 

3193 7440 X7*XaB 

3194 7450 IF (X.GT.X1) THEN 

3195 GOTO 7410 

3196 ELSE 

3197 CONTINUE 

3198 ENDIF 

3199 7460 X4-0.01 

3200 7470 Xa8»X7-X4*X7 

3201 7480 GOTO 7420 

3202 7500 IF (Xafi.LE.1.0) THEN 

3203 GOTO 7550 

3204 ELSE 

3205 CONTINUE 

3206 ENDIF 

3207 7530 Sonicflag*1.0 

3208 7550 0plaviscous»P7-P7*Xa7/XrtB*SQRT((1.(H(Xk-1.0)/2.0*X«7**2.0>/(1.(K<X 

3209 1k-1.0)/2.0*X«B**2.0» 

3210 7560 RETURN 
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SUBROUTINE XMACN Compiling 0ption*:/N0/N7/B/NC/ND/NF/H/NI/NIC/NL/P/Nai/NQ2/NQ3/R/S/NT/U/NX/NZ1 
Sourct fUt Listing 


3211 


END 
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FUNCTION PNEU Caviling Optians:/NO/N7/B/NC/ND/NF/H/Nl/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/U/NX/NZ1 
Source file Listing 


3212 C 

3213 C 

3214 C 

3215 FUNCTION PneM(U,J,K) 

3216 C 

3217 C FUNCTION TO CALCULATE HEAT PIPE FAILURE PROBABILITY 

3218 C 

3219 C *** VARAIBLES DEFINITION *“ 

3220 C U * 1.0 * Prob (0.1, 0.01, 0.001) 

3221 C J - INTEGER NUMBER OF REDUNDENT NEAT PIPES 

3222 C K > INTEGER NUMBER OF TOTAL HEAT PIPES (REOUIRED+REDUNDENT ) 

3223 INTEGER H 

3224 C REAL*8 Pold,Dudpold,Dudp,Dudpnew,F,U,A,Pnew 

3225 Pold*0.03 

3226 Dudpol^lO.O 

3227 9510 F-U 

3228 Di4*0 

3229 DO 9512 H-J«1,K,1 

3230 A*Xlnfec(K)-Xlnfec(IC-H)-Xlnfac(H)+H*ALOG(Pold)*OC'N)*ALOG<1-Pold) 

3231 IF (A.GT.-50.0) THEN 

3232 A>EXP(A) 

3233 F-F+A 

3234 Ou4>-Ou(8>«-A*(H/Pold-(K-H)/<1-Pold» 

3235 ELSE 

3236 CONTINUE 

3237 END IF 

3238 9512 CONTINUE 

3239 9513 Dudp nw^ (Ou^>*Oudfrotd)/2 

3240 IF <ABS(F/Du4pneu).LT.0.005) THEN 

3241 P ne wP oId- F/D u dp new 

3242 ELSE 

3243 Pne wP oid-0.4*F/Di xfr ns M 

3244 ENDIF 

3245 DudpolMudpnew 

3246 IF (Pneu.GT.0.99999) THEN 

3247 Pneu-0.1+0.9*Pold 

3248 ELSE 

3249 CONTINUE 

3250 ENDIF 

3251 IF (Pneu.LT. 0.00001 ) THEN 

3252 P new 0 .1*Potd 

3253 ELSE 

3254 CONTINUE 

3255 ENDIF 

3256 ErronABS((PneM-Pold)/Pold) 

3257 Pold-Pnew 

3258 IF (Error.GT. 0.000001) THEN 

3259 GOTO 9510 

3260 ELSE 

3261 CONTINUE 

3262 ENDIF 

3263 P nc wP neu 
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FUNCTION PNEW CONpIUng Optfon8:/NO/N7/B/NC/ND/NF/H/NI/NIC/NL/P/NQ1/NQ2ANQ3/R/S/NT/W/NX/N21 
Source file Listing 


3264 

3265 


RETURN 

END 
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FUNCTION XLNFAC Coapiling Optior«:/NO/N7/B/NC/ND/NF/H/NI/NI(/NL/P/NQ1/NQ2/NQ3/R/S/NT/U/NX/NZ1 
Source fUt Listing 


3266 

C 


3267 

C 


3268 

c 


3269 

9700 FUNCTION Xlnfac(N) 

3270 

c 

REAL*8 F,Z,Xiz2 f Xlnfsc 

3271 

c 

FUNCTION TO CALCULATE THE LOG OF FACTORIALS OF WHOLE NUMBERS 

3272 


IF (N.EQ.O) THEN 

3273 


F-0.0 

3274 


ELSE 

3275 


CONTINUE 

3276 


ENDIF 

3277 


IF (N.EQ.1 > THEN 

3278 


F-0.0 

3279 


ELSE 

3280 


CONTINUE 

3281 


ENDIF 

3282 


IF (N.EQ.2) THEN 

3283 


F-ALOG(2.0) 

3284 


ELSE 

3285 


CONTINUE 

3286 


ENDIF 

3287 


IF (N.EQ.3) THEN 

3288 


F*ALOG(6.0) 

3289 


ELSE 

3290 


CONTINUE 

3291 


ENDIF 

3292 


IF (N.EQ.4) THEN 

3293 


F-AL0GC24.0) 

3294 


ELSE 

3295 


CONTINUE 

3296 


ENDIF 

3297 


IF (N.EQ.5) THEN 

3298 


F*ALOG(120.0> 

3299 


ELSE 

3300 


CONTINUE 

3301 


ENDIF 

3302 


IF (N.GT.5) THEN 

3303 


Z«FLOAT(N+1) 

3304 


X 1x2*1 ./Z/Z 

3305 


F*(Z- .5 )*ALOG(Z)*Z+.5*ALOG(2*3. 141593 )+1 ./<12*Z)*( 1 • -Xi z2/30*( 1 . -2 

3306 


1*Xiz2/7*(1.-3*Xiz2/4)» 

3307 


ELSE 

3308 


CONTINUE 

3309 


ENDIF 

3310 


Xlnfac*F 

3311 


RETURN 

3312 


END 
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SUBROUTINE TMEAN Coupling Option«:/NO/N7/B/NC/ND/NF/H/NI/NICirNL/P/NQ1/NQ2/NQ3/R/S/NT/W/NX/NZ1 
Source file listing 


3313 C 

3314 C 

3315 C 

3316 SUBROUTINE T*EAN(Tin,DT«an,DTf U«,Tbar) 

3317 Tref - Tin - DTfila 

3318 21 ■ (1 .0-(DT«an/Tref ))**3.0 

3319 Z2 - 1.0/((1.0/Z1>-1.0) 

3320 Z3 - 3.0*Z2*(DT«en/Tref) 

3321 Tber ■ (Z3* IT ref **4.0 »**0.25 

3322 RETURN 

3323 END 
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SUBROUTINE ACONE Compiling Options:/N0/N7/B/NC/ND/NF/H/NI/N)C/NL/P/NQ1/NQ2/NQ3/R/S/NT/U/NX/NZ1 
Source file Listing 

3324 C 

3325 C 

3326 C 

3327 

3328 

3329 

3330 

3331 

3332 


SUBROUTINE ACOKE(Rft,Rl,Ht,Areacone) 
A - 3.141593*(Rs+Rl) 

B • SORT«Ht**2.0VKRl-Rs>**2.0) 

Areacone » A*B 

RETURN 

END 
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SUBROUTINE AVIEW Coapilir* Opt i one :/N0/N7/B/NC/ND/NF/H/N I /NIC/NL/P/N01 /NQ2/N03/R/S/NT /W/NX/NZ 1 
Source file Listing 


3333 C 

3334 C 
u p C 

3336 SUBROUTINE AVIEU(Ds,Dl,Ht,Acone,Vfct) 

3337 R1 * Ds/2.0 

3338 R2 > Dl/2.0 

3339 Acone ■ 3.141593*<R1*R2)*SQRT<<Ht**2.0>+«R2-R1>**2.0)) 

3340 Aend ■ 3.141593*(R2**2.0) 

3341 A1 ■ 3.141593*(R1**2.0) 

3342 0UM1 « 1.0 ♦ «R2/R1>**2.0> ♦ <(Ht/Rl>**2.0) 

3343 0UM2 « 4.0*((R2/R1)**2.0> 

3344 DUK3 • SQRT«DUH1**2.0)-DUH2> 

3345 F1to2 « 0.5*(DUM1-DUH3) 

3346 Vfct ■ (Aend/Acone)*< 1 .0- ( (A1/Acone>*F1 to2) ) 

3347 RETURN 

3348 END 
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SUBROUTINE VIEW Compiling 0ptions:/N0/N7/B/NC/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/W/NX/NZ1 
Source file Listing 

3349 C 

3350 C 

3351 C 

3352 SUBROUTINE Vieu(D1,D2,D3,H1,H2,Aa,Vf) 

3353 C 

3354 C CONICAL RADIATOR ID VIEW FACTOR - Cone ID to Space via 

3355 C Large End Only 

3356 C 

3357 C **** VARIABLES DEFINITION **** 

3358 C 01 « DIAMETER OF EXIT DISC 

3359 C D2 « LARGE DIAMETER OF CONICAL ELEMENT 

3360 C D3 « SMALL DIAMETER OF CONICAL ELEMENT 

3361 C HI » DISTANCE FROM TOP OF CONE TO SMALL DIAMETER PLANE 

3362 C H2 « DISTANCE FROM TOP OF CONE TO LARGE DIAMETER PLANE 

3363 C Aa « AREA OF ID OF CONICAL ELEMENT SURFACE 

3364 C Vf « VIEW FACTOR OF CONICAL ELEMENT TO CONE ENO (LARGE DIA. END) 

3365 R141/2.0 

3366 R242/2.0 

3367 R3-D3/2.0 

3368 X12«1.0*(R2/R1)**2.0»(H1/R1>**2.0 

3369 X13»1.0+<R3/R1)**2.0*’(H2/R1>**2.0 

3370 F1to2«0.5*<X12-S0RT((X12**2.0)-<4.0*(R2/R1)**2.0))) 

3371 F1to3*0.5*<X13-SQRT((X13**2.0)-(4.0*(R3/R1)**2.0))) 

3372 A1x»3.141593*<D1**2.0>/4.0 

3373 Daa>SQRT«<H2-N1)**2.0)*((D2/2.0-D3/2.0>**2.0)) 

3374 Dab-3.141593*(D2<H>3)/2.0 

3375 Aa4aa*Dab 

3376 Vf*(A1x/Aa)*(F1to2-F1to3) 

3377 RETURN 

3378 END 
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SUBROUTINE HRSHEL Coapiling Opt i ons : /H0/N7/B/NC/N0/N F/H/N I /NK/NL/P/NO 1 /NQ2/NQ3/R/S/NT /W/NX/N 
Source file Listing 


3432 C 

3433 C ***** TUBE-SIDE FLUID PROPERTY I ES 

3434 C 

3435 C CPT « TUBE-SIDE FLUID Specific Heat (BTU/Lb-R) 

3436 C RHOT - TUBE-SIDE FLUID Density (Lbs/Ft A 3) 

3437 C AJCTT ■ TUBE-SIDE FLUID Thermal Cond (BTU/Hr-Ft-R) 

3438 C Visa > TUBE-SIDE FLUID Viscosity (Lb/Ft-Sec) 

3439 C 

3440 C 

3441 C SET FLUID THERMAL PROPERTIES 

3442 C 

3443 TBARR - (THIH+TCIN)/2.0 

3444 GO TO (5,8),IHXflg 

3445 5 CALL XLITHP(TBARR, RHOT, CPT, VISa,AICTT) 

3446 CALL HEXEPR(AMWS, PHOT, TBARR, GAMMA, CPSF,RHOSF,VISCST,AKTST,PRMIX) 

3447 GO TO 10 

3448 8 CALL XNAKPR(TBARR, RHOT, CPT, VISa,AKTT) 

3449 CALL HEXEPR(AMWS, PHOT, TBARR, GAMMA, CPSF,RH0SF,V1SCST,AKTST,PRMIX) 

3450 10 WDOTS ■ 3600.0*WDOTS 

3451 VISCST « VISCST/6.72E-4 

3452 WRITE (6,*) *TBARR,RHOT,CPT,VISa,AJCTT\TBARR,RHOT,CPT,VISa,AJCTT 

3453 WRITE (6,*) 'ANWS, PHOT, TBARR, GAWA.CPSF.RHOSF, VISCST, AKTST.PRMIX - 

3454 t' ,ANWS, PHOT, TBARR, GAMMA, CPSF.RHOSF, VISCST, AKTST,PRMIX 

3455 WRITE (6,*) 'WDOTS, VISCST WDOTS, VISCST 

3456 A1 ■ (THIN-TCOUT) - (THOUT-TCIH) 

3457 IF ((THIN-TCOUT). EG. (THOUT-TCIH)) THEN 

3458 ALNTD - THIN-TCOUT 

3459 GO TO 15 

3460 ELSE 

3461 A2 » ALOG( (THIN-TCOUT )/(THOUT-TCIN» ' 

3462 ALMTD « A1/A2 

3463 END IF 

3464 15 PR ■ PR 

3465 WRITE (6,*) 'A1, ALMTD, PR A1, ALMTD, PR 

3466 GOTO 100 

3467 35 (JEST - UNEW 

3468 100 AO - -2. 0*0 TUBE 

3469 BQ « (DTUBE**2.0) 

3470 CQ1 ■ PR *0 TUBE 

3471 CQ2 « 144.0*G0OT*(C01**2.0) 

3472 CQ3 ■ UEST*ALMT0*(9.869604)*DTUBE 

3473 CO ■ CG2/CQ3 

3474 PQ ■ -((AG**2.0)/3.0)+BO 

3475 GO « (2.0*((A0/3.0)**3.0))-(AG*BQ/3.0)*C0 

3476 Q8IG ■ ((PQ/3.0)**3.0)+((GQ/2.0)**2.0) 

3477 AARG ■ -(QG/2.0)*SQRT(OB1G) 

3478 ABIG ■ (ABS(AARG))**0.333333 

3479 BBRG ■ -(QO/2.0)-SaRT(QBIG) 

3480 BBIG « (ABS(BBRG))**0. 333333 

3481 DOTL « ABIG * BBIG - (AO/3.0) 

3482 ALSHEL « (ANPLATES+1.0)*DOTL 

3483 AVAL > 0.867 
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SUBROUTINE HRSHEL Compiling Options:/NO/N7/B/NC/ND/NF/H/NI/NK/NL/P/NQl/NQ2/NQ3/R/S/NT/W/NX/NZ1 
Source file Listing 


3379 

C 

3380 

c 

3381 

c 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

c 

3394 

c 

3395 

c 

3396 

c 

3397 

c 

3398 

c 

3399 

c 

3400 

c 

3401 

c 

3402 

c 

3403 

c 

3404 

c 

3405 

c 

3406 

c 

3407 

c 

3408 

c 

3409 

c 

3410 

c 

3411 

c 

3412 

c 

3413 

c 

3414 

c 

3415 

c 

3416 

c 

3417 

c 

3418 

c 

3419 

c 

3420 

c 

3421 

c 

3422 

c 

3423 

c 

3424 

c 

3425 

c 

3426 

c 

3427 

c 

3428 

c 

3429 

c 

3430 

c 

3431 

c 


SUBROUTINE HRSHEL( IKXf lg,UEST , THIN, TROUT ,PNOT ,TCIN,TCOUT,IDOTS, AMU 
fcS,TINS,DENINS,DENSSH,DTUBE,PR,TTUBE,ANPLATES,l»OTT,AICTUBE,0 
ID0T,DPSHELL,AMTUBES,DPTUBE,D0TL2,ALSHEL,AMSHELL,AMPLATES, 
IAMTUBES,AMIMSUL,AMHEADS,AMSTRT,ANETMASS,XMNHEX,NSHELL,AFRIC,UNEW, 

«ETUBE,THC,AMTSHT) 

WRITE (6,*) ' ' 

WRITE (6,*> 'DATA INPUT LIST FROM HRSHEL ' 

WRITE (6.*) 'IHXf Ig.UEST, THIN, THCUT, PHOT, TCIN, TCOUT,IDOTS,AMUS, 
*TINS,DENINS,DENSSH,DTUBE,PR,TTUBE,ANPLATES,WDOTT,AXTUBE,QDOT •', 
AlHXf lg,UEST, THIN, THOUT, PHOT, TCIN, TCOUT,WDOTS, ANUS, TINS ,DENINS, 
IDENSSH ,DTUBE , PR , TTUBE , ANPLATES, WDOTT , AICTUBE , QDOT 

SNELL AND TUBE HEAT EXCHANGER DESIGN SUBROUTINE 
ROUTINE ASSUMES THAT LIQUID IS ON TUBE SIDE 
GAS IS ON SHELL SIDE. BELL'S CORRELATION IS USED FOR 
GAS SIDE WAT TRANSFER - LYONS IS USED FOR TUBE SIDE 
LIQUID METAL HEAT TRANSFER, NcELLIOT , MCGEE AND LEPPERT 
IS USED FOR OTHER FLUIDS (LIQUIDS AND GASES) 

***** OVERALL PARAMETERS ***** 

IHXflf - 1, THEN TUBE SIDE FLUID IS LITHIUM 

IHXflg ■ 2, THEN TUBE SIDE FLUID IS NaK-78 

ALMTD ■ Heet Exchanger Log Mean Taepereture Difference 

QDOT ■ Heat Rate or Duty (BTU/Hr) 

(JEST ■ INITIAL VALUE OF Uoverali (BTU/Hr-Ft-R) 

(50 for GAS-GAS) 

THIN ■ HOT SIDE Inlet Temperature (R) 

THOUT * HOT SIDE Outlet Taepereture (R) 

TCIN * COLD SIDE Inlet Taepereture (R) 

COUT « COLD SIDE Outlet Taepereture (R) 

***** SHELL SIDE DATA ***** 

WDOTS ■ SHELL SIDE FLUID Flourate CL be /Sac) 

OENSSH ■ SHELL MATERIAL Density (Lbs/Ft A 3) 

***** SHELL-SIDE FLUID PROPERTIES ***** 

CPSF « SHELL-SIDE FLUID Specific Heat (BTU/Lb-R) 

RHOSF * SHELL-SIDE FLUID Density (Lba/Ft A 3) 

AKTST » SHELL-SIDE FLUID Thanes l Cond (BTU/Hr-Ft-R) 

VISCST ■ SHELL-SIDE FLUID Viscosity (Cp) 

***** TUBE SIDE DATA ***** 

DTUBE * Outside TUBE Disaster - (Inches) 

TTUBE - TUBE Wall Thickness (Inches) • 

WDOTT ■ TUBE -SIDE Fluid Flourate (Lbs/Sec) 

AKTUBE * TUBE Wall Thenesl Conductivity (BTU/Hr-Ft-R) 
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SUBROUTINE HRSHEl CoapfUng Opt1ona:/HO/N7/B/NC/HD/HF/H/NI/NIC/NL/P/NQ1/NQ2/NQ3/R/S/NT/U/HX/H2 
Source file Listing 



3484 FFBN ■ 0.4307652 ♦ <4.521962E-03*(D0TL» - (6.335725E-05*(DOTL**2 

3485 1.0)) ♦ (3.716571E-07*(DOTL**3.0)) 

3486 GXT ■ 1560.0*(UDOTS/(DOTL**2.0)) 

3487 REXT ■ (DTUBE*GXT)/(29.0*VISCST) 

3488 RC « 1.0 

3489 IF (REXT-1000.0) 200,150,150 

3490 150 RC « 1.0 

3491 GOTO 300 

3492 200 RC ■ 0.4812508 ♦ (2.726048E-03*(REXT)) - (7.739889E-06*(REXT**2.) 

3493 1) ♦ (9.960931E-09*(REXT**3.0» - (4.431738e-12*(REXT**4.0» 

3494 300 FFBP «FFBN*RC 

3495 FFBH > FFBP+0.125 

3496 REXP « FFBP*REXT 

3497 REXH « FFBH*REXT 

3498 AREP > ALOG(REXP)/2.302585093 

3499 AREH > ALOG(REXH)/2.3O2585093 

3500 AFX « 1.397542 - (0.96108*(AREP» ♦ (0.064751*(AREP**2.0)) ♦ CO.O 

3501 106305*(AREP**3.0)) 

3502 AFRIC « 10.0**AFX 

3503 AJX « -0.359018 - (0.259608*(AREH>> - (0.094385*(AREH**2.0» ♦ (0 

3504 1.012556*(AREH**3.0)) 

3505 AJFAC - 10.0** AJX 

3506 C URITE (6,*) 'j -FACTOR •*, AJFAC 

3507 HS1 ■ 0.415*CPSF*GXT*FFBH* AJFAC 

3508 HS2 « (AKTST/(CPSF*VISCST) >**0.66667 

3509 NSHELl « NS1*HS2 

3510 OPSF • 0 .00875*( ( A J FAC*ALSHEL )/ (AVAL*PR*DTUBE*0.4 ) ) 

3511 DPSM * 0. 001551 191*(((ALSHEL*1.0)/(0.4*DOTL)>-1.0) 

3512 DPSHELL « (0.3*(DPSF40PSH)/RHOSF)*((GXT*FFBP)/10000.0> 

3513 PT « PR*OTUBE 

3514 ANTUBES - ((0.7854*(DOTL-DTUBE)**2.0)/(PT**2.0» 

3515 VTUBE - UDOTT/AN TUBES 

3516 AREAT ■ (0.7854*(OTU8E-(2.0*TTUBE))**2.0)/144.0 

3517 VTUBE - VTUBE/(AREAT*RHOT) 

3518 0 TUBE - RHOT*<VTUBE**2.0)/<2. 0*32. 174*144.0) 

3519 RETUBE ■ VTUBE*RHOT*OTUBE/(12.0*V1SCT) 

3520 D TUBE I - 0TUBE-(2.0*TTUBE) 

3521 PRTUBE ■ (3600*V1SCT*CPT)/AXTT 

3522 IF (PRTUBE-0.1) 330,330,340 

3523 330 THC ■ (12.0*AKTT/DTUBEI>*(7.0*(0.025*<RETUBE*PRTUBE>**0.8» 

3524 GOTO 440 / 

3525 340 IF (RETUBE-2000.0) 350,350,400 ^ Ell C 

3526 350 TFRIC-64.0/RETUBE 

3527 THC » 4.364*02. 0*AKTT/DTUBEI ) 

3528 GOTO 450 

3529 400 AK * 0.0001 

3530 AKD » AK/DTUBEI 

3531 FRIC1 « ALOC10{(AKD/3.7>*(5.74/(RETUBE**0.9)»**2.0 

3532 TFRIC ■ 0.25/FRIC1 

3533 THC - 0. 026*02. 0*AKTT/DTUBEI)*(RETUBE**0.8)*(PRTUBE**0.4) 

3534 435 GOTO 450 

3535 440 IF (RETUBE -2000.0) 442,442,445 


) 
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SUBROUTINE HRSHEL Coepi Mno Options:/N0/N7/B/NC/ND/NF/H/NI/NK/NL/P/NQ1/N02/NQ3/R/S/NT/W/NX/NZ1 
Source file Listing 


3536 

3537 

3538 

3539 

3540 

3541 

3542 

3543 

3544 

3545 

3546 

3547 

3548 

3549 

3550 

3551 

3552 

3553 

3554 

3555 

3556 

3557 

3558 

3559 

3560 

3561 

3562 

3563 

3564 

3565 

3566 

3567 

3568 

3569 

3570 

3571 

3572 

3573 

3574 

3575 

3576 

3577 

3578 

3579 

3580 

3581 

3582 

3583 

3584 

3585 

3586 

3587 

3588 


442 TFRIC-64.0/RETUBE 
GOTO 450 
445 A* - 0.0001 
AND - AK/DTUBEI 

FRIC1 - ALOGl0((AKD/3.7)*(5.74/(RETUBE**0.9>))**2.0 
TFRIC - 0.25/FR1C1 
450 COND2 ■ 12.0*AKTUBE/TTUBE 

UNEU • 1 .0/( ( 1 .0/THC)*( 1 .0/HSNELL )+( 1 .0/COND2) ) 

DPTUBE ■ (2.0*QTUBE) ♦ ((TFRIC*(ALSHEL/DTUBEI))*GTUBE) 

CQ3 - UNEW*ALMTD*( 9. 869604 )*DTUBE 
CO ■ C02/CQ3 

00 « (2.0*((AQ/3.0)**3.0))-(AG*BG/3.0) ♦ CO 
QBIG « ((PQ/3.0)**3.0) ♦ ((QQ/2.0)**2.0) 

AARG - -<QQ/2.0)+SORT(QB1G) 

ABIC ■ ( A8S( AARG) )**0 . 33333 3 
B8RG » -( QO/2. 0>" SORT <OBIG) 

BB1G * (ABS(BBR6»**0. 333333 
DOTL2 ■ ABIG ♦ BBIG - (AQ/3.0) 

ERROR - ABS(COOTL-DOTL2)/OOTL) 

IF (ERROR - 0.001) 600,600,35 
600 TMINPR - PHOT*DOTL/( 2. 0*1 0000.0) 

TMINSC « (0.005*t>OTL) ♦ <0.0001*(DOTL**2.0)) 

IF (TMINPR. GT.TMINSC) THEN 
TMIN - TMINPR 
GOTO 650 
ELSE 

TMIN « TMINSC 
END IF 

650 AM1NSUL « (3.141593*DOTL*(DOTL*ALSHEL)*TINS*(DENINS/1728.0)) ♦ (3. 
*141593*(DOTL2**2.0)*TINS*(DENINS/1728.0)) 

C WRITE (6,*) 'TMIN (Inches) «',TMIN 

AMHEADS ■ 3 . 141593*(DOTL**2.0)*TMIN*(DENSSN/1728.0) 

AMSHELL ■ 3.141593*DOTL*(DOTL+ALSHEL)*TMIN*(DENSSH/1728.0) 
AMPLATES ■ ANPLATES*(2.0*3.141593*((DOTL**2.0)/4.0)*TMIN*(0ENSSM/1 

11728.0)) 

ANTSHT - 2.0*3. 141593*((DOTL**2.0)/4.0)*2.0*TMIN*(DENSSH/1728.0) 
AMTUBES ■ 0. 785398* ((DTUBE**2.0)-(DTUBEI**2.0))*ALSI£L*ANTUBES*( 
1DENSSH/1 728.0) 

AMSTRT * 0 • 05* (AMI NSUL+AMHEADS+AMSHE L L«AMPLATES«AHTSHT*AMTUBES ) 
ANETMASS « AMINSUL*AMHEADS*AMSHELL*AMPLATES+AMT$HT*AHTUBES*AMSTRT 
C WRITE (6,*) ' ' 

C WRITE (6 V *) 'SHELL AND TUBE HEAT EXCHANGER DESIGN CODE' 

C WRITE (6,*) 1 ' 

C WRITE (6 f *) 'SHELLSIDE DP »',DP$HELL 

C WRITE (6,*) 'SHELLSIDE H *' f HSHELL 

C WRITE (6,*) 'FRIC-FAC «',AFR1C 

C WRITE (6,*) 'UNEW *',UNEW 

C WRITE (6,*) 'NUMBER OF TUBES IN BUNOLE «',ANTUBES 

C WRITE (6 f *) 'Tite Side Reynolds Ninter RETUBE 

C WRITE (6,*) 'Tube Conductance *',C0ND2 
C WRITE (6 # *) 'Tube Side Pressure Drop (PSID) ■',DPTUBE 

C WRITE (6,*) 'Tube Side Hg (BTU/Hr-sq.Ft-R) «' # THC 

C WRITE (6,*) 'TUBE DIA (Inches) «',DTU8E 
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SUBROUTINE HRSHEL Coining 0pt1ons:/N0/N7/B/NC/ND/NF/H/Nl/NK/NL/P/NQl/NQ2/NQ3/R/S/NT/W/NX/NZl 
Source file LUtino 


3589 C 

3590 C 

3591 C 

3592 C 

3593 C 

3594 C 

3595 C 

3596 C 

3597 C 

3598 C 

3599 C 

3600 C 

3601 

3602 

3603 

3604 

3605 


WRITE (6,*) 'TUBE WALL THICKNESS (Inches) *',TTUBE 
WRITE (6,*) 'D0TL2 (Inches) «',DOTL2 
WRITE (6,*) 'LENGTH (Inches) «',ALSHEL 
WRITE (6,*) ' ' 

WRITE (6,*) 'INSULATION NASS (Lbs) *',AMINSUL 

WRITE (6,*) 'HEAD MASS (Lbs) «',ANHEADS 

WRITE (6,*) 'SHELL MASS (Lbs) *' ,AMSHELL 

WRITE (6,*) 'PLATE NASS (Lbs) *',ANPLATES 

WRITE (6,*) 'TUBE SHEETS MASS (Lbs) ■' ,AMTSHT 

WRITE (6,*) 'TUBE MASS (Lbs) *',AMTUBES 

WRITE (6,*) 'STRUCTURE AND BRACKETS MASS (Lbs) «',ANSTRT 

WRITE (6,*) 'Net Mass of Shell and Tube Unit (Lbs) >',ANETNASS 

VNAK1 « 0 • 785398* (DTUBE**2 • 0 )*ALSHEL*AN TUBES 

VNAK2 * 0.523599* (DOTL**3.0) 

XMNHEX - (VNAK1+VNAK2)*(RHOT/1 728.0) 

RETURN 

END 
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SUBROUTINE HPMAN Coapiling Optibne:/NO/N7/B/NC/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/W/NX/NZ1 
Source file Listing 

3606 C 

3607 C 

3608 C 

3609 SUBROUTINE HPMAN(If luid.If lg2,Cawn,Hawn,Gap,Pitch,Dcan,Dhp.Rc, 

3610 4Rb,Tf,TKfin,TKcan,TKbraze,TKhP,XNf,XMpipee,XMexpipes,XMW,Pwen,Taen 

3611 A,RHOcan,RHObraze,THICKBan,M*wn,Qrad,XMAItaee,DPaan,DTfilM,XMNMAM) 

3612 C 

3613 C SUBROUTINE TO DETERMINE THE NASS AND PERFORMANCE OF A MANIFOLD 

3614 C WHICH USES LIOUID OR GAS TO TRANSFER NEAT TO THE HEAT PIPES OF 

3615 C A HEAT PIPE RADIATOR. THE MANIFOLD CONFIGURATION CONSISTS OF 

3616 C A SINGLE ROW OF TUBE CANS (BRAZED TO HEAT PIPES) (FINS OPTIONAL) 

3617 C 

3618 C INPUT VARIABLES REQUIRED 

3619 C If Lg2 ■ FLAG TO SET MANIFOLD WORKING FLUID 

3620 C 1 - Ne-Xe MIXTURE 

3621 C 2 > NsK 

3622 C Hawn * MANIFOLD HEIGHT (Fast) 

3623 C Gap - MANIFOLD WIDTH (Feet) 

3624 C Pitch > DISTANCE BETWEEN CAN (HEAT PIPES) CENTERLINES (Feet) 

3625 C XMpipes • NUMBER OF HEAT PIPES IN RADIATOR 

3626 C XNEXpipee • NUMBER OF REDUBDENT HEAT PIPES IN RADIATOR 

3627 C Dean - OUTSIDE DIAMETER OF MANIFOLD BRAZE CANS (Feet) 

3628 C Dhp - INSIDE DIAMETER OF HEAT PIPE (Feet) 

3629 C Rc > MANIFOLD BRAZE CAN INSIDE RADIUS (Feet) 

3630 C Rb « BRAZE JOINT INSIDE RADIUS (Feet) 

3631 C Tf ■ FIN THICKNESS (Feet) 

3632 C TKf In - THERMAL CONDUCTIVITY OF FIN MATERIAL (BTU/Hr-Ft-R) 

3633 C TKcan - THERMAL CONDUCTIVITY OF MANIFOLD CAN MATERIAL (B/HFR) 

3634 C TKbraze - THERMAL CONDUCTIVITY OF MANIFOLD BRAZE ALLOY ( a ) 

3635 C TKhp » THERMAL CONDUCTIVITY OF HEAT PIPE WALL MATERIAL (■) 

3636 C XNf ■ TOTAL NUMBER OF FINS FOR THE MANIFOLD HEIGHT 

3637 C RHOcan - DENSITY OF MANIFOLD MATERIAL (Lb/cu-Ft) 

3638 C RHObreze - DENSITY OF BRAZE MATERIAL (Lb/cu-Ft) 

3639 C THICKawn « MANIFOLD MATERIAL THICKNESS (Feet) 

3640 C Pawn - MANIFOLD INLET PRESSURE (PSIA) 

3641 C Tawn - MANIFOLD INLET TEMPERATURE (deg-R) 

3642 C Wawn - MANIFOLD FLOWRATE (LBS/HR) 

3643 C Qnan » MANIFOLD AND RADIATOR HEAT LOAD (BTU/HR) 

3644 C XMW - MOLECULAR WEIGTH OF MANIFOLD WORKING FLUID 

3645 C 

3646 C OUTPUT VARIABLES 

3647 C XMANawe > MANIFOLD MASS (Lbe) 

3648 C DPawn > MANIFOLD PRESSURE DROP (PSIA) 

3649 C DTfiUa « MANIFOLD FILM TEMPERATURE DROP (deg-R) 

3650 C 

3651 Qawn - 3413.0*0rad 

3652 PI “ 3.14159265 

3653 Ao * (PI*Dcan*(1.0-(XNf*Tf))*Hawn) ♦ (2.0*XNf*Hwart»((Pitch*Gap)- 

3654 G((PI/4.0)*(Dcen**2.0)))) 

3655 Afo ■ Ao - (PI*Ocan*Hawn*(1.0-(XNf*Tf ))) 

3656 X ■ 12.0*(Gep-Dcen)/2.0 

3657 Xe - X*((1.D»(12.0*Tf))/(2.0*X))*(1.0*(0.35*ALOG(X/(12.0*Dcen)))) 
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SUBROUTINE HPMAN Coapilir* Optians:/NO/N7/B/NC/ND/NF/H/NI/NJC/NL/P/NQ1/NQ2/NQ3/R/S/NT/W/NX/NZ1 
Source file Listing 

3659 C URITE <6**> 'Ao, Afo, X, Xe >',Ao,Afo,X,Xe 

3660 C 

3661 C MANIFOLD CONVECTIVE NEAT TRANSFER COEFFICIENT 

3662 C 

3663 GOTO (10,20),Iflg2 

3664 10 CALL HEXE PR (XMU,Puen, Teen, GANNA, CP, RHO, AMU, TIC, Preix) 

3665 GOTO 30 

3666 20 CALL XNAKPR(Taan,RHO,CP,AMU,TK> 

3667 30 AMU « 3600.0* AMU 

3668 Aain > ((Gap-Dcan)*Haan) • (Gap*XNf*Tf> 

3669 Gaax ■ 3600. 0*Ween/ Aain 

3670 REYasn « Qwx*Dcan/AMU 

3671 C URITE (6,*) 'Aain, Gaax, REYaan Aain, Gaex, REYasn 

3672 Fiso « 10.0**( ( 1 .714012)* ( 1 ,349954*(ALOG10(REYaan) ))+(0.216271* 

3673 fc((ALOG10(REYaan))**2.0))-(0.012421*((ALOG10(REYaan))**3.0))) 

3674 XJ « 10.0**((0.321848)-(0.840808*(ALOG10(REYaan)))-K0.081598*(( 

3675 tALOG10(REYaan))**2.0))-(0.004631*((ALOG10(REYasn)) M 3.0») 

3676 C URITE (6,*) 'Fiso, XJ -',Fiso,XJ 

3677 Pr ■ ANU*CP/TK 

3678 Hcaan ■ XJ*CP*Gaex/(Pr**0.6667) 

3679 Gc - 4.16975E+08 

3680 XNt * XNpipes+XNexpipes 

3681 C WRITE (6,*) 'Pr, Hcaan, Gc, XNt >',Pr,Hcaan,Gc,XNt 

3682 C MANIFOLD PRESSURE DROP 

3683 Vaax ■ Gaax/(3600.0*RH0) 

3684 Gaax - RHO*(V«»x**2.0)/(2.0*32. 174*144.0) 

3685 DPaan - (4.0*Fiso*XNt*((Gaax**2.0)/(288.0*Gc*RHO))> ♦ (0.9*Qaax) 

3686 C HEAT PIPE EVAPORATOR HEAT TRANSFER COEFF (VERY VERY ROUGH) 

3687 Qf lux » Qaan/(Pt*Dcan*Haan*XNt) 

3688 TO - (Taan/1.8) - 273.2 

3689 C WRITE (6,*) 'Vaax, Gaax, DPaan, Qfluc, TO *', Vaax, Gaax, D Pa a n , Qf lux, 

3690 C 8T0 

3691 CALL Flui<^irap(Ifluid,TO,Xliqden,Vspden,Xliqyisc,Vapvisc,PO,Surf 

3692 8ten,Xlhv,Xk,Xawfluid,Tcfluid) 

3693 C WRITE (6,*) 'THERMAL COND OF HEAT PIPE FLUID IS (**) «',Tcflu1d 

3694 Hevap « (Tcf luid/0.00413656)/(0.010*Dhp) 

3695 C FINISH UP FIN CALCULATION 

3696 IF (Tf.LE.0.0) THEN 

3697 Ha * Hcaan 

3698 GOTO 50 

3699 ELSE 

3700 XM * SQRT((2.0*Hcaan)/(TKfin*Tf)) 

3701 Xe*Xe/12.0 

3702 Efin « <1 .0/(XM*Xe))*TANH(XM*Xe) 

3703 Ecorr ■ 1.2*Efin • 0.2 

3704 IF (Ecorr. LE. 0.1) THEN 

3705 Ecorr - Efin 

3706 GO TO 45 

3707 ELSE 

3708 CONTINUE 

3709 END IF 
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SUBROUTINE HPMAN Compiling Options:/NO/N7/B/NC/ND/NF/H/NI/NIC/NL/P/NQl/NQ2/NQ3/R/S/NT/W/NX/NZl 

Source file Listing 


3710 

3711 

3712 C 

3713 C 

3714 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

3722 

3723 C 

3724 C 

3725 C 

3726 C 

3727 

3728 

3729 C 

3730 C 

3731 

3732 

3733 

3734 C 

3735 C 

3736 

3737 

3738 C 

3739 C 

3740 

3741 

3742 

3743 C 

3744 C 

3745 

3746 


45 He « Hcaan^1.0-<1.0-Ecorr)*<Afo/Ao>> 

END IF 

WRITE <6,*> 'Hevap, XN, Effn, Ecorr, He ■' f Hevap,XM,Efin,Ecorr,Ha 
COMPUTE FILM TEMPERATURE DROP 
50 Rhp ■ Dhp/2.0 
Ro • Dcan/2.0 

D1 ■ Qf lux/(2.0*PI*Rhp*Haan) 

D2 * 2.0*PI*RhpPHaen/(Ha*Ao) 

D3 * Rhp*ALOG(Ro/Re)/TICcan 
D4 - Rhp*ALOG(Rc/Rb)/TKbraze 
D5 ■ Rhp*ALOG(Rb/Rhp)/TIChp 
D6 • (1.0/Hevap) 

DTf i la * D1*(D2+03+04 , H)5>D6) 

WRITE <6,*) 'D1,D2,D3,D4,D5,D6 »',D1,D2,D3,D4,D5,D6 
WRITE (6,*) 'DTf i I m *',DTf ila 
NASS ESTIMATE 
CAN MASS 

Vcan ■ <PI*Dcan*Haan*{R©-Rc) ) ♦ ((PI/4.0)*<Dean**2.0)*<Ro-Rc» 

XMcan ■ XNt*Vcan*RHOcan 

WRITE (6,*) 'Vcan, XMcan «\Vcan,XNcan 

MANIFOLD WALL MASS 

yuan • (((2.0^H»H(2.0*Gap))*CMnnHICK«an) - <XNt*(PI/4.0)*(Dca 
8n**2.0)*THICICaan) 

XMwalL ■ Vaan*RHOcan 

WRITE (6,*) 'Vaan,XMwall «' # VMan,XMuaU 

BRAZE NASS 

Vbreze ■ (2.0*PI*Rc*Hman*(Rc-Rb>) 

XNbraze « XNt*Vbraze»RHObraze 

WRITE (6,*> 'Vbraze, XNbraze Vbraze .XNbraze 

TOTAL MANIFOLD NASS 

XMANms » XMcan+XMwal l+XNbraze 

VOLnak « (Ca«n*Haan*Cap) - (XNt*0.7B5398*{Dcan**2.0>*Hmen> 

XMNMAN > VOLnak*RHO 

WRITE (6,*) ' Caen, Haen, Gap, XNt, Dean «',Caan,Haen, Gap, XNt, Dean 
WRITE <6, # ) 'XMANaes, VOLnak, XMNMAN «',XMA N aa « , VOLnak, XMNMAN 
RETURN 
END 
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Source file Listing 


3747 C 

3748 C 

3749 C 

3750 SUBROUTINE HRPIPE(XN9,R9,Dp,SUNLEN,Vpipe,Tnak,Pnek, 

3751 8THICKP,RH0PIP,THICK1 ,RH01NS,DPPIPE,PIPNAK,PIPNAS) 

3752 C 

3753 C NeK PIPING SYSTEM DESIGN AND MASS ESTIMATION ROUTINE 

3754 C 

3755 c ■««.<«««. VARIABLE DEFIED •••••••••*• 

3756 C 

3757 C XN9 • NUMBER OF 90 DEGREE ELBOWS OR EQUIVALENT IN PIPE SYSTEM 

3758 C R9 « AVERAGE RADIUS FOR 90 DEGREE ELBOUS (INCHES) 

3759 C Dp » INSIDE PIPE DIAMETER (INCHES) 

3760 C SUMLEN « TOTAL LENGTH OF PIPE SYSTEM (INCHES) 

3761 C Vpipe « NAK VELOCITY IN PIPES (FT/SEC) 

3762 C Tnek ■ Nek TEMPERATURE (deg-R) 

3763 C Pnek - Nek PRESSURE (psie) 

3764 C THICKP - PIPE WALL THICKNESS (INCHES) 

3765 C RHOPIP » PIPE WALL DENSITY (LB/cu-FT) 

3766 C THICKI - PIPE INSULATION THICKNESS (INCHES) 

3767 C R HOI NS - PIPE INSULATION DENSITY (LB/cu-FT) 

3768 C DPPIPE ■ PIPE SYSTEM PRESSURE DROP (PSID) 

3769 C PIPMAS - PIPE SYSTEM NASS (LBS) 

3770 C PIPNAK - NASS OF NeK IN PIPE SYSTEM (LBS) 

3771 C 

3772 IF (THICKP.EQ. 0.0) THICKP - (Pnek*Dp)/15000.0 

3773 CALL XNAKPR(Tnek,RHO,CP,VIS,TK) 

3774 REnek - Vpipe*0p*RH0/(12.0*VtS) 

3775 Qnek - RHO*(Vpipe**2.0)/(2.0*32.174*144.0) 

3776 XI » ALOG10(R9/Dp) 

3777 BETA - -0.589233-(1.334185*X1)+(2.424496*(X1**2.0))-(1.272074*(X1* 

3778 **3.0)>+(0.148518*(X1**4.0)> 

3779 AK9 * 10.0**BETA 

3780 X2 « ALOGIO(REnek) 

3781 Cfc ■ 6.723115-(1.517276*(X2))'*'(0.093726*(X2**2.0)> 

3782 DPelbo « XN9*Cfc*AK9*Qnek 

3783 ROUGH « 0.0001 

3784 FR1 « (ALOG10((ROUGH/(3.7*Dp))+(5.74/(REnek**0.9))))**2.0 

3785 FRIC - 0.25/FR1 

3786 DPp « FRIC*(SUMLEN/Dp)*Qnek 

3787 DPPIPE > DPelbe*DPp 

3788 C 

3789 C PIPING NASS ALGORITHM 

3790 C 

3791 DOp * Dp ♦ (2.0*THICKP) 

3792 Dip ■ Dp 

3793 Axp - 0.7B5398*((DOp**2.0)-(DIp**2.0)) 

3794 XMPIPES - Axp*SUMLEN*(RH0PIP/1728.0) 

3795 DOi ■ DOp ♦ (2.0-THICKI) 

3796 AXP ins • 0.785398*((DOi»*2.0)-(DOp**2.0)) 

3797 XMPINS » AXPins*SUMLEN*(RHOINS/1728.0) 

3798 XNEL - XN9*0.785398*R9*2.0*Axp*(RHOPIP/1728.0) 
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Sourc# flla Listing 

3799 XMELIn « XN9*0.785398*R9*2.0*AXPins*<RHOIN$/1728.0> 

3800 PIPMAS « XMPIPES+XHPINS+XHEL+XMELfn 

3801 AXnak ■ 0.785398*<DIp**2.0) 

3802 Xnakl - AXnak*SUNLEN*(RHO/1728.0) 

3803 Xnak2 - AXnak*XN9*0.785398*R9*2.0*(RHO/1728.0) 

3804 PIPNAK » Xnak1*Xnak2 

3805 RETURN 

3806 END 


F77L-EH/32 - Lahey Extended*Meaory FORTRAN 77, Version 3.01 09/28/92 14:45:36 

Page 92 
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Source file Listing 

3807 C 

3808 C 

3809 C 

3810 SUBROUTINE PUMP(Tnak,Wnak,DPPIPE,DPHX,DPNANIF,DPLOOP,Phyd,XHPUHP) 

3811 C 

3812 C PUHP NASS ESTIMATE 

3813 C 

3814 C 

3815 C VARIABLES DEFINED “*‘“***** 

3816 C 

3817 C Tnak « NAK INLET TEMPERATURE (deg-R) 

3818 C Unak - NAK FLOURATE (LBS/SEC) 

3819 C DPPIPE - PIPING SYSTED PRESSURE DROP (PSID) 

3820 C DP NX « NAK SIDE HEAT EXCHANGER PRESSURE DROP (PSID) 

3821 C DPMANIF ■ NAK MANIFOLD PRESSURE DROP 

3822 C Ptiyd - HYDRAULIC POWER REQUIRED FROM PUHP (WATTS) 

3823 C XMPUMP ■ E-M PUHP NASS (LBS) 

3824 C 

3825 CALL XNAKPR(Tnak,RHO,CP,VIS,TK) 

3826 GPM » 446.897*(Wnak/RHO) 

3827 DPLOOP - DPPIPE+DPHX+OPMANIF 

3828 Phyd * 0. 435 *DP LOOP* GPM 

3829 XMPUMP * 37.0 + 0.323*Phyd 

3830 C WRITE (6,*) ' ' 

3831 C WRITE (6,*) 'PUMP POWER REQUIRED (WATTS) (HYDRAULIC) »' .Ptiyd 

3832 C WRITE (6,*) 'PUMP MASS (Lbs) -'.XMPUMP 

3833 RETURN 

3834 END 
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3835 C 

3836 C 

3837 C 

3838 SUBROUTINE VACMAS(Tnak,XMNPIP,XMNMAN,XNNHEX,XNNVAC,XNVAC) 

3839 C 

3840 C VOLUME ACCUMULATOR MASS ESTIMATE 

3841 C 

3842 C VOLUME ACCUMULATOR NAK VOLUME IS ESTIMATED TO BE 1.20 TINES THE 

3843 C CHANGE IN LOOP NAK VOLUME BETWEEN 560 R AND THE OPERATING TEMP. 

3844 C 

3845 C * * VARIABLES DEFINED ********** 

3846 C 

3847 C Tnak - NaK TEMPERATURE (deg*R) 

3848 C KNNPIP * NAK NASS IN PIPING SYSTEM (Lbs) 

3849 C XMNMAN * NAK NASS IN RADIATOR MANIFOLD (Lbs) 

3850 C XNNKEX - NAK NASS IN HEAT REJECTION NEAT EXCHANGER (Lbs) 

3851 C XMNVAC - NAK VOLUME IN VOLUME ACCUMULATOR (cu-IN) 

3852 C XMVAC * VOLUME ACCUMULATOR NASS (WET) (LBS) 

3853 All - 560.0 

3854 CALL XNAKPR(A11,RH0REF,CP,VIS,TK) 

3855 CALL XNAKPR(Tnak,RH0NAK,CP2,VIS2,TK2> 

3856 XMNTOT * XHNPIP+XMNMAN+XMNHEX 

3857 VOLACC * (((RHOREF-RHONAK)/RHONAK)*OOWTOT/RHONAK)*1728.0)*1.2 

3858 IF (VOLACC.LT .0.0) THEN 

3859 XMNVAC ■ 0.0 

3860 XMVAC - 0.0 

3861 RETURN 

3862 ELSE 

3863 A12 - 0. 66* ALOG10( VOLACC) • 0.28 

3864 END IF 

3865 XNsst * 10.0**A12 

3866 XMNvac ■ (V0LACC/1728.0)*RH0NAK 

3867 XMVAC ■ XMMt+XHNvac 

3868 C WRITE (6,*) 'VOLUME ACCUMULATOR Nek NASS (Lbs) •' .XMNvac 

3869 C WRITE (6,*) 'VOLUME ACCUMULATOR NASS (Lbs) -'.XMVAC 

3870 RETURN 

3871 END 
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3872 C 

3873 C 

3874 C 

3875 SUBROUTINE HRDUCT(XN9,R9,Dp,SUMLEN,Vpipe,TGAS,PGAS,THICKP,RH0PIP, 

3876 4THICKI ,RHOINS, XMW,DPDUCT,DUCMAS) 

3877 C 

3878 C HE-XE DUCT MASS AND PRESSURE DROP FOR DIRECT CYCLE BRATTON 

3879 C 

3880 c ************* VARIABLES DEFINED *************** 

3881 C 

3882 C XN9 * NUMBER OF 90 DEGREE ELBOUS OR EQUIVALENT IN PIPE SYSTEM 

3883 C R9 - AVERAGE RADIUS FOR 90 DEGREE ELBOUS (INCHES) 

3884 C Dp * INSIDE DUCT DIAMETER (INCHES) 

3885 C SUMLEH - TOTAL LEHGTH OF DUCT SYSTEM (INCHES) 

3886 C Vpipe * GAS VELOCITY IN DUCTS (FT/SEC) 

3887 C TGAS * GAS TEMPERATURE (deg-R) 

3888 C PGAS ■ GAS PRESSURE (pels) 

3889 C THICKP - DUCT WALL THICKNESS (INCHES) 

3890 C RHOPIP ■ DUCT WALL DENSITY (LB/CU-FT) 

3891 C THICK! * DUCT INSULATION THICKNESS (INCHES) 

3892 C RHOINS * DUCT INSULATION DENSITY (LB/CU-FT) 

3893 C XMU « GAS MOLECULAR WEIGHT 

3894 C DPOUCT « DUCT SYSTEM PRESSURE DROP (PSID) 

3895 C DUCMAS * DUCT SYSTEM MASS (LBS) 

3896 C 

3897 CALL HEXEPR(XMU,PGAS,TGAS,GMA,CP,RHO,VIS,TK,PRGAS) 

3898 REnek « Vpipe*Dp*RHO/(12.0*VIS) 

3899 Qnek « RHO*(Vpipe**2.0)/(2.0*32. 174*144.0) 

3900 XI * AL0G10(R9/Dp) 

3901 BETA * -0.589233-(1.334185*X1)+(2.424496*(X1**2.0))-(1.272074*(X1* 

3902 4*3.0) )*(0.148518*(X1**4.0)) 

3903 AK9 * 10.0**BETA 

3904 X2 - ALOGIO(REnek) 

3905 Cfc ■ 6.7231 15-(1.517276*(X2))+(0.093726*(X2**2.0)) 

3906 DPelbo - XN9*Cfc*AK9*0nek 

3907 ROUGH * 0.0001 

3908 FR1 * (AL0G1 0( (ROUGH/ (3 . 7*Dp) )+(5 . 74/( REnek**0 .9) ) ) )**2. 0 

3909 FRIC * 0.25/FR1 

3910 DPp * FR I C* ( SUMLEN/Dp)*Qnek 

3911 DPOUCT * DPelboH>Pp 

3912 C 

3913 C PIPING NASS ALGORITHM 

3914 C 

3915 DOp * Dp * (2.0*THICKP) 

3916 Dip * Dp 

3917 Axp * 0.785398*((DOp**2.0)-(Dlp**2.0» 

3918 XMPIPES - Axp* SlIMLEM* (RHOPIP/ 1728.0) 

3919 DOi * DOp * (2.0*THICK1> 

3920 AXP ins - 0.785398*((DOi**2.0)-(DOpP*2.0)) 

3921 XMPINS * AXPins*SUMLEN*(RHOINS/1728.0) 

3922 XMEL - XN9*0.785398*R9*Axp*(RHOPIP/1728.0) 

3923 XMELin * XN9*0.785398*R9*AXPins*(RHOINS/1728.0) 
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3924 

3925 

3926 


DUCMAS * XMP I PES+XMP I NS+XMEL+XHE L I n 

RETURN 

END 
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SUBROUTINE CONMAN Coapi ling Optiona:/NO/N7/B/NC/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/W/NX/NZ1 
Source file listing 

3927 C 

3928 C 

3929 C 

3930 SUBROUTINE CONMANOf luid,Caan,Haan, Gap, THICKina,RHOina, Tout, 

3931 tTbraze,TKcan,TKbraze,TKhP,XNpipee,XMexpipea,Pin,Tin,Xin,RHOpip, 

3932 XRHOcan, RHObraze, TH I CKaan, Thtpi p,Uaan,Orad, XMANaas , DPaan, DT F aup, 

3933 tAr,Gt,V,Dh,Cgt,Rel,Hl,Xtt,Rev, 

3934 tt>TFcon,DTF*ii),DTf 1 la) 

3935 C WRITE (6,*) 'FROM CONMAN - If luid,Oaan,Huan,Gap,TH!CKina,RHOine ■' 

3936 C t,lfluid,Caan,Huan,Gap,THlCK1ne,RHOinc 

3937 C WRITE (6,*) 'Tout,Tbraie,TKcen,TKbraze,TKhp »' ,Tout,Tbraze,TKcan, 

3938 C tTKbraze.TKhp 

3939 C WRITE (6,*) 'XNpipe*,XN*xpipee,Pin,Tin,Xin *',XNpipea,XNexpipea, 

3940 C tPin,Tin,Xin 

3941 C WRITE (6,*) 'RHOpip,RHOcan,RHObraze,THICKaen,Thtplp *',RNOpip,RHOc 

3942 C tan, RHObraze, THICXaan.Thtpip 

3943 C WRITE (6,*) 'Waan.Qrad Waan.Qrad 

3944 C 

3945 COMMON /CNFL/ DL, DV, VF, VG, HF, HG, HFG, SF, SG, 

3946 t SFG, Cl, Cv, TKl, TKv, Prl, Prv, VI, W 

3947 C SUBROUTINE TO DETERMINE THE MASS AND PERFORMANCE OF A CONDENSING 

3948 C MANIFOLD FOR POTASSIUM WHICH TRANSFERS HEAT TO THE NEAT PIPES OF 

3949 C A HEAT PIPE RADIATOR. THE MANIFOLD CONFIGURATION CONSISTS OF 

3950 C A SQUARE PASSAGE WITH HEAT PIPES BRAZED TO ITS 00. 

3951 C 

3952 C VARIABLES 

3953 C Ifluid « FLAG TO IDENTIFY HEAT PIPE WORKING FLUID 

3954 C Dean * MANIFOLD CIRCUMFERENCE OR LENGTH (FEET) 

3955 C Haan « MANIFOLD HEIGHT (FEET) 

3956 C Gap - MANIFOLD WIDTH (Feet) 

3957 C XNpipea - NUMBER OF PRIMARY NEAT PIPES IN RADIATOR 

3958 C XNexpipes - NUMBER OF REDUNDENT HEAT PIPES IN RADIATOR 

3959 C T braze - BRAZE JOINT THICKNESS (Feet) 

3960 C TKcen - THERMAL CONDUCTIVITY OF MANIFOLD CAN MATERIAL (B/HFR) 

3961 C TKbraze - THERMAL CONDUCTIVITY OF MANIFOLD BRAZE ALLOY (”) 

3962 C TKhp * THERMAL CONDUCTIVITY OF HEAT PIPE WALL MATERIAL (■) 

3963 C RHOcan » DENSITY OF MANIFOLD MATERIAL (Lb/cu-Ft) 

3964 C RHObraze » DENSITY OF BRAZE MATERIAL (Lb/cu-Ft) 

3965 C THICKaan « MANIFOLD MATERIAL THICKNESS (Feet) 

3966 C Thtpip - HEAT PIPE WALL THICKNESS (FEET) 

3967 C Pin - MANIFOLD INLET PRESSURE (PSIA) 

3968 C Tin » MANIFOLD INLET TEMPERATURE (deg-R) 

3969 C Xin - MANIFOLD INLET QUALITY (LIQUID FRACTION) 

3970 C Waan ■ MANIFOLD FLOWRATE (LBS/HR) 

3971 c Qaan « MANIFOLD AND RADIATOR HEAT LOAD (BTU/HR) 

3972 C XMW > MOLECULAR WEIGTH OF MANIFOLD WORKING FLUID 

3973 C 

3974 C OUTPUT VARIABLES 

3975 C XMANaaa - MANIFOLD MASS (Lb*) 

3976 C DPaan - MANIFOLD PRESSURE DROP (PSIA) 

3977 C DTfila * MANIFOLD FILM TEMPERATURE DROP (deg-R) 

3978 C 

3979 


Qaan * 34 13. 0*0 rad 
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SUBROUTINE CONHAN Cospiling Options:/N0/N7/B/NC/ND/NF/H/NI/IK/NL/P/NQ1/NQ2/NQ3/R/S/NT/W/NX/NZ1 
Source file Liating 


3960 C 

3981 C NANI FOLD CONVECTIVE HEAT TRANSFER COEFFICIENT 

3982 C 

3983 CALL KPRP(Xin,Pin,Tln,DL,DV,HF,NG,HFG,SF,SG,SF6.VF,VG) 

3984 CALL rTRN(Xin,Pin,Tin,Ct,Cv,m,TKv,Prl,Prv,Vl,W) 

3985 C WRITE (6,*) 'Xin,Pin,Tin,DL,DV,NF,HG,HFG,SF,SG,SFG,VF,VG a',Xin, 

3966 C (Ptn,Tin,DL,DV,HF,HG,HFG,SF,SG,SFG,VF,VG 

3987 C WRITE (6,*) 'Cl,Cv,TKl,TKv,Prl,Prv,Vl,Vv ■',Cl,Cv,m,TKv,Prl,PRv, 

3988 C GVl.Vv 

3989 C 

3990 C 

3991 C 

3992 Ax ■ Gap* Moan 

3993 Dh ■ (4.0*Ax)/((2.0*Gap)+(2.0*Haen)) 

3994 C 

3995 C NOTE THAT CONDENSER NAS TWO SIDES - 1/2 THE HEAT PIPES ARE 

3996 C ATTACHED TO ALTERNATIHG SIDES OF TIE NANI FOLD BOK 

3997 C 

3998 Ac ■ 2. 0*(Haen*Caen)/CXNp1pes+XN expipes) 

3999 DX « Ac/Hnn 

4000 Naan * UMan 

4001 X ■ Xin 

4002 CH - Haan 

4003 CW ■ Gap 

4004 ETA > 0.000005 

4005 Of lux ■ Oaan/(2.0*Huan*Caan) 

4006 JKP a lFIX(XNDiDes+XNexDipes) 

4007 C WRITE (6.*) 'Ax,Dh,Ac,DX,Wnan.X,CH,CW,ETA,Qf lux, JHP •• .Ax.Dh.Ac.OX 

4008 C i,Wnan,X,CH,CU,ETA,Qf lux, JHP 

4009 C 

4010 C CONFUTE SATURATION TENP: EQUATION IS FOR POTASSIUN ONLY 

4011 C 

4012 Tsat a ( *7633.6)/ (ALOGIO(Pin)-S. 279) 

4013 C WRITE (6,*) 'Teat FROM 3650 (R) a»,Tsat 

4014 IF (Tfn.GT.Tsat) THEN 

4015 OdeMg> > Uaan*Cv*(Tin • Teat) 

4016 Qcondn « Uaan*HFC 

4017 Qfyfcf * Qm an - odtuy • Qconcti 

4018 C WRITE (6,*) 'QdesLp.Qcendn.Qsubc FRON 3661»', Qdest?,Qcon*i,Qsi£c 

4019 JNSUP a (OdastgUQaan)*JHP 

4020 JNCON « (Qcondrv/Oaan)*JHP 

4021 JNSUB - (Qsifcc/Qaan)*JHP 

4022 IF ( JNSUP. EQ.O) JNSUP - 1 

4023 IF (JNCON. EQ.O) JNCON « 1 

4024 IF (JNSUB. EQ.O) JNSUB a 1 

4025 C WRITE (6,*) 'JNSUP, JNCON, JNSUB a*, JNSUP, JNCON, JNSUB 

4026 GO TO 70 

4027 ELSE 

4028 GO TO 20 

4029 ENDIF 

4030 20 IF (Tin. EQ. Teat) THEN 

4031 Qdestg) ■ 0.0 
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Source file Listing 

4032 Qsubc « Wnan*Cl*(Tsat - Tout) 

4033 Qcondn * Qmh - Qsubc 

4034 C WRITE (6,*) 'Qdesup,Qconch,Qsubc FROM 3674*',Qdesup,Qcondn,Qsii>c 

4035 JNSUP ■ 0 

4036 JNCON * (Qconc*«/Qnan)*JHP 

4037 JNSUB ■ JHP - JNCON 

4038 IF ( JNCON. EQ.O) JNCON - 1 

4039 IF (JNSUB. EQ.O) JNSUB > 1 

4040 C WRITE (6,*) 'JNSUP, JNCON, JNSUB ■', JNSUP, JNCON, JNSUB 

4041 CO TO 80 

4042 ELSE 

4043 GO TO 30 

4044 ENDIF 

4045 30 IF (Tin.LT.Tsat) THEN 

4046 Odes up « 0.0 

4047 Qcondn * 0.0 

4048 Qsubc * Qnsn 

4049 C WRITE (6,*) 'Qdesup.Qcondn.QsUw FROM 3687«',Qdtsia>,Qcon*,Qs»i>e 

4050 JNSUP - 0 

4051 JNCON ■ 0 

4052 JNSUB - JHP 

4053 IF (JNSUB. EQ.O) JNSUB ■ 1 

4054 C WRITE (6,*) 'JNSUP, JNCON, JNSUB ■' .JNSUP, JNCON, JNSUB 

4055 GO TO 90 

4056 ELSE 

4057 GO TO 70 

4058 ENDIF 

4059 70 CALL CVAP(Umn, CH, CW, DX, ETA, He, DPnet1,Ar,Gt,V,0h.Rav,Hl> 

4060 C WRITE (6,*) 'INFO FROM AFTER CVAP CALL IN CONMAN' 

4061 C WRITE (6,*) 'W*an,CH,CW,DX,ETA,Hc,DPnat1,Ar,Gt,V,Dh,Rav,HI -',ttaan 

4062 C (,CH,CM,DX,ETA,Hc,0Pmt1,Ar,Gt,V,Dh,Rav,Hl 

4063 Hasan ■ He 

4064 Tnan - Tin 

4065 TO « (Tnan/1.8) - 273.2 

4066 CALL Flui^ropdf luid,TO,Xliqdan,Vapden,Xliqvise,Vapvisc,PO,Surf 

4067 fctan,XUtv,Xk,Xaufluid,Tcfluid) 

4068 Hevap » (Tcf luid/0.00413656)/(0.0083) 

4069 Ha > Henan 

4070 C COMPUTE FILM TEMPERATURE DROP FOR DESUPERHEATER 

4071 01 * Qf lux 

4072 D2 « 1.0/Ha 

4073 D3 ■ THICXnan/TKcan 

4074 D4 » Tbraza/TKbraz* 

4075 05 - Thtpip/TKhp 

4076 06 - 1.0/Hevap 

4077 Usip - 1.0/(D2+03+04+05+06) 

4078 DTFsup ■ 01 * (02+0 3*04 +05+06) 

4079 C WRITE (6,*) 'Qflux, Usup, DTFstp ■' , 0 f lux.Usup.DTFai^J 

4080 C WRITE (6,*) 'Havap,Ha,D1,D2,D3,D4,D5,D6,DTFsup *',Navap,Na,D1,D2, 

4081 C (03,04,05, D6,DTFs«? 

4082 C 

4083 80 X«Xin/2.0 
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4084 CALL CONOOAaan, X, CH, CW, OX, ETA, He, DPnet2,Ar,Gt,V,Dh,Cgt,Rel, 

4085 l Hl,Xtt,Rev) 

4086 C WRITE <6,*> 'INFO FROM AFTER COND CALL IN COWMAN' 

4087 C WRITE (6,*) 'Uaan,X,CH,CU,DX,ETA,Hc,DPnet2,Ar,Gt,V,Dh,Rev,Cgt,Rel, 

4088 C Ul,Xtt,Rev -',Wlasn,X,CH,CW,DX,ETA,Hc,DPnet2,Ar,Gt,V,Mi,Rev,Cgt,Rel 

4089 C l,Hl,Xtt,Rev 

4090 Hasan > He 

4091 Taan ■ Tin 

4092 TO « (Taan/1.8) - 273.2 

4093 CALL Flui^»rop<Iflu1d,T0,Xllqden,Vapden,XUqvisc,Vapv1sc,P0,Surf 

4094 tten,Xlhv,Xk,Xaa<fluid,Tcfluid) 

4095 Hevap ■ (Tcf luid/0.00413656)/(0.0083) 

4096 He « Hasan 

4097 C COMPUTE FILM TEMPERATURE DROP FOR CONDENSER 

4098 01 - Of lux 

4099 02 - 1.0/Ha 

4100 03 - THICKiaan/TKcan 

4101 04 > Tbraze/TKbraze 

4102 05 ■ Thtpip/TKhp 

4103 06 - 1.0/Hevap 

4104 Ucon - 1 .0/(02*03*04*05+06) 

4105 OTFcon - D1*(D2*0 3+04 *05*06) 

4106 C WRITE (6,*) 'Of lux, Ucon, DTFeen »',Oflux,Ucon,DTFccn 

4107 C WRITE (6,*) ' Hevap, Ha,D1 ,02,03,04,05 ,D6,DTFcon ■', Hevap, Ha, 01, 02, 

4108 C 103, 04, 05, 06, OTFcon 

4109 C 

4110 90 CALL CLIQCWaon, CH, CW, OX, ETA, He, DPnet3,Ar,Gt,V,0h,Rev,Nl) 

4111 C WRITE (6,*) 'INFO FROM AFTER CLIO CALL IN OONNAN' 

4112 C WRITE (6,*) 'WMan,CH,CW,DX,ETA,Hc,DPnet3,Ar,Gt,V,0h,Rev,Hl >', 

4113 C Mmn,CH,CW,DX,ETA,Hc,DPnet3,Ar,Gt,V,0h,Rev,Hl 

4114 Hasan > He 

4115 Tson « Tin 

4116 TO * (Taan/1.8) • 273.2 

4117 CALL Ftui4>rop(Ifluid,T0,Xliqdan,Vapden,Xli<|viac,Vapv1ac,P0,Surf 

4118 ltan,Xlhv,Xk,XMwfluid,Tcfluid) 

4119 Hevap - (Tcfluid/0.00413656)/(0.0083) 

4120 Ha ■ Hasan 

4121 C COMPUTE FILM TEMPERATURE DROP FOR SUBCOOLER 

4122 01 * Of lux 

4123 02 • 1.0/Ha 

4124 03 > THICKmn/TKcan 

4125 04 ■ Tbraze/TKbraze 

4126 05 > Thtpip/TKhp 

4127 06 ■ 1.0/Hevap 

4128 UsUb « 1.0/(02*03*04*05*06) 

4129 DTFsii) * D1*(D2+03*04*05*06> 

4130 C WRITE (6,*) 'Of lux, Usifc, DTFaifc ■',Qflux,Usii>,DTFaub 

4131 C WRITE (6,*) 'Hevap, Ha, 01, 02, 03, 04, 05, 06 , DTFsUj ■' ,Hevap,Ha, 01,02, 

4132 C U3,D4,05,D6,DTFaub 

4133 C 

4134 C COMPUTE AVERAGE FILM DROP TO BE USED FOR RADIATOR DESIGN 

4135 C 

4136 AN SUP - FLOAT(JNSUP) 
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4137 ANCON * FLOAT (JNCON) 

4138 ANSUB > FLOAT(JNSUB) 

4139 AHP • FLOAT(JHP) 

4140 OTfila - ( (ANCON/AHP)*DTFcon) 

4141 lr»((ANSUB/AHP)*DTFsii>) 

4142 DPasn « 0Pnet1'H»Pnet2*0Pnet3 

4143 C WRITE (6,*) 'OTfila, DPaan DTfila, DPaen 

4144 C NASS ESTIMATE 

4145 C MANIFOLD METAL MASS 

4146 Vaen « <((2.0*Haen)*(2.0*(^p))*Caen»THICICaen) 

4147 XNuall « Vaan*RHOcan 

4148 C MANIFOLD TO NEAT PIPE BRAZE NASS 

4149 Vbraze * 2.0*Haan*Caan*Tbreze 

4150 XNbraze * Vbraze*RHObraze 

4151 C TOTAL FLAT HEAT PIPE EVAPORATOR NASS 

4152 Vheatpip * 4.0*Maan*Caen*Thtpip 

4153 XMhtpip « RHOpip*Vheatpip 

4154 C WRITE (6,*) 'Vaan,XMwall,Vbraze,XMbrsze,Vheatpip,XMhtpip -',Vaan, 

4155 C UCMual l, Vbraze, XNbraze, Vheatpip.XNhtpip 

4156 C INSULATION MASS 

4157 Vine ■ <<2.0*Haan)+(2.0*Gap>)*Caan»THICICins 

4158 XMins > Vins*RHOins 

4159 C LIQUID INVENTORY IN MANIFOLD 

4160 VI iq > FLOAT ( JNSUB/ JHP)*Maen*CapPCaan 

4161 XMliqin ■ DL*Vliq 

4162 C TOTAL NASS OF RADIATOR MANIFOLD 

4163 XMANaes ■ XMwall+XNbraze+XNhtpipOtMins+XMliqin 

4164 C WRITE (6,*) 'Vins,XMins,Vliq,XMliqfn,XMANaas >' .Vine, XMins, Vliq, 

4165 C tXMliqin.XMANaas 

4166 IF (JNCON. EQ.O) Cot-0.0 

4167 IF (JNCON. EQ.O) Xtt-0.0 

4168 RETURN 

4169 END 

WARNING - REAL VARIABLE (USUP) assigned a value, never used, line 4077. 

WARNING - REAL VARIABLE (UCON) assigned a value, never used, line 4104. 

WARNING - REAL VARIABLE (USUB) assigned a value, never used, line 4128. 

WARNING - REAL VARIABLE (ANSUP) assigned e value, never used, line 4136. 
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SUBROUTINE CLIO CoepHlrq 0ptions:/N0/N7/B/NC/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/W/NX/NZ1 
Source file Listing 

4170 C 

4171 C 

4172 C 

4173 C 

4174 SUBROUTINE CLIQ (U*en,HH,UM,DX,ETA,Ms,DPnet3,Ar,6t,V,Dli, 

4175 t Rel.Hl) 

4176 C** CALCULATES HEAT TRANSFER l PRESSURE DROP FOR PURE VAPOR 

4177 C** A TWO- PHASE FLUID (GAS-LIQUID) ** ADJUSTED FOR LIQUID METALS 

4178 COMMON /CNFL/ DL, DV, VF, VG, NF, HG, HFG, SF, SG. 

4179 8 SFG, Cl, Cv, TKl, TKv, Prl, Prv, Vl, W 

4180 

4181 C WRITE (6,*) 'DATA FROM CLIQ' 

4182 C WRITE (6,*) 'REVIEW CONTENTS OF COMMON' 

4183 C WRITE (6,*) 'DL,DV,VF,VG,HF,HG,HFG,SF,SG,SFG,Cl,Cv,m,TKv,Prt,Prv 

4184 C t.Vl.Vv ■',DL,DV,VF,VG,MF,HG,HFG,SF,SG,SFG,Cl,Cv,TICl,TICv,Prl,Prv,Vl 

4185 C 4,Vv 

4186 Gc ■ 32.1739 

4187 C** HEAT TRANSFER 

4188 C« FLOW CROSS-SECTIONAL AREA (sq ft) 

4189 Ar • HM * WM 

4190 Dh ■ (4.0*Ar)/((2.0*HM)*(2.0*WM)) 

4191 C** Gt - MASS FLUX (lb*/h sq ft) 

4192 C** N - FLOW RATE PER TUBE, (lbn/h) 

4193 Gt ■ Waan / Ar 

4194 C WRITE (6,*) 'Gc,Ar,Dh,Gt ■' ,Gc,Ar,Dh,Gt 

4195 

4196 C** LIQUID VELOCITT, ft/S 

4197 V - 6t/( DL * 3600.0 ) 

4198 

4199 C** CONDENSATE FILM REYNOLDS NUMBER 

4200 Rel - W*an*Dh/( Ar*VL ) 

4201 

4202 C** HI - SHEAR-CONTROLLED LIQUID FILM HEAT TRANSFER COEFFICIENT 

4203 HI - (7.0 ♦ 0.025*(Rel * Prl)**0.8 )* (TKl/Dh) 

4204 Hs - HI 

4205 

4206 C** PRESSURE DROP 

4207 C** MOMENTUM PRESSURE DROP (psia) 

4208 C** I ■ inlet, e • exit 

4209 C DPM ■ Gt**2.0/6c*( ((1 .0-Y)/Dl*+Y/DVe) - ((1.0-Y)/Dli«T/DVi) ) 

4210 

4211 C** CALCULATE FRICTION FACTORS 

4212 FFl > FF(Dh, ETA, Rel) 

4213 

4214 C** LIQUID PRESSURE DROP (psia) 

4215 DPI ■ FFl*(DX/Dh)*Gt**2.0**(1.0/(2.0*DL*Gc)) 

4216 C WRITE (6,*) 'V,Rel,Hl,Hs,DPl,FFl -',V,Rel,Nl,Hs,DPl,FFl 

4217 DPI > DPl/(144. 0*3600. 0**2.0) 

4218 

4219 C** DPf FRICTION PRESSURE DROP (psia) 

4220 DPf > DPI 

4221 0Pnet3 ■ DPf 


F77L-EN/32 - lehey Extended-Neaory FORTRAN 77, Version 3.01 09/28/92 14:45:36 

Page 102 

SUBROUTINE CLIO CoapHlrv 0pt1ons:/N0/N7/B/NC/ND/NF/H/NI/NK/NL/P/NQ1/N02/Na3/R/S/NT/y/NX/WZ1 
Source file Listlno 

4222 C WRITE (6,*) »DPl,DPf,DPnet3 ■'.DPl.DPf ,DPnet3 

4223 RETURN 
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SUBROUTINE COM) Coapilirw 0ptione:/N0/N7/B/NC/ND/NF/H/NI/NK/NL/P/NQ1/NQ2/NQ3/R/S/NT/W/NX/NZ1 
Source file Listing 


4225 C 

4226 C 

4227 C 

4228 SUBROUTINE COM) (gMn,Y,HN,IM,DX,ETA,Hs,DI>net2,Ar,6t,V,0h, 

4229 8 Cgt,Rel,Ml,Xtt,Rev) 

4230 Gc-32.1739 

4231 C** CALCULATES HEAT TRANSFER 8 PRESSURE DROP FOR 

4232 C** A TWO-PHASE FLUID (GAS-LIQUID) ** ADJUSTED FOR LIQUID PETALS 

4233 CONNON /CNFL/ DL, DV, VF, VG. HF, HG, HFG, SF. SG, 

4234 8 SFG, Cl, Cv. TKl, TKv, Prl, Prv, VI, W 

4235 

4236 C WRITE (6,*> ' IHFO FROM COND' 

4237 C WRITE (6,*) 'REVIEW CONTENTS OF COMMON' 

4238 C WRITE (6,*) 'DL,DV,VF,VG,HF,HG,HFG,SF,SG,SFG,Cl,Cv,TKl,TKv,Prl,Prv 

4239 C 8,Vl,W «',DL,DV,VF,VG,HF,HG,HFG,SF,SG,SFG,Cl,Cv,TKl,TKv,Prl.Prv,Vl 

4240 C 8 Vv 

4241 C** HEAT TRANSFER 

4242 C** FLOW CROSS-SECTIONAL AREA (sq ft) 

4243 Ar ■ HM * UM 

4244 C WRITE (6.*) 'Ar >',Ar 

4245 OH « (4.0*Ar)/((2.0*HM)*(2.0*WM)) 

4246 C WRITE (6,*) 'Dh «',Dh 

4247 C** Gt - MASS FLUX (Ifan/h sq ft) 

4248 C** N - FLOW RATE PER TUBECLIOUID PLUS VAPOR), Iba/h 

4249 Gt - Wnan / Ar 

4250 C WRITE (6,*) 'Gt -'.Gt 

4251 

4252 C** VAPOR VELOCITY, ft/e 

4253 C** Y - LOCAL VAPOR WEIGHT FRACTION FACTOR 

4254 V - Y*Gt/( DV * 3600.0 ) 

4255 C WRITE (6,*) 'V >',V 

4256 

4257 C** Cgt - TUBESIDE FLOW REGIME PARAMETER 

4258 C** IF Cgt < 0.3, SHEAR-CONTROLLED LIQUID FILM HEAT TRANSFER COEFFICIENT 

4259 Cgt ■ (Dh*(Ge*(3600.0**2.0))*DV*(DL-DV)*((1-Y)/Y))**0.5/Gt 

4260 C WRITE (6,*) 'Cgt >',Cgt 

4261 

4262 C** CONDENSATE FILM REYNOLDS NUMBER 

4263 Ret > Unart*<1.0-Y)*Dh/<Ar*VL) 

4264 C WRITE (6,*) 'Rel -',Rel 

4265 

4266 C** VISCOSITY CORRECTION FACTOR , (BULK VISCOSITY/WALL VISCOSITY)**0.14 

4267 C** ASSUMED EQUAL TO 1 

4268 C** VCF - 1.0 

4269 

4270 C** HI - SHEAR-CONTROLLED LIQUID FILM HEAT TRANSFER COEFFICIENT 

4271 C** HI - 0.022*(Rel)**0.8 * (Pr)**0.4 • (TKl/Dh) * VCF 

4272 HI - (7.0 ♦ 0.025*(Rel * Prl)**0.8 )* (TKl/Dh) 

4273 C WRITE (6,*) 'HI >',Hl 

4274 

4275 C** Xtt - MARTINELLI PARAMETER, FORM FOR BOTH TURBULENT PHASES 

4276 Xtt - ((1.0-Y)/Y)**0.9 * (DV/DL)**0.5 * (VL/W)**0.1 
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Source file Liating 

4277 C WRITE (6,*) 'Xtt »',Xtt 

4278 

4279 C** Csh - CORRELATION FUNCTION FOR SHEAR-CONTROLLED FLOW NT 4 DP 

4280 Csh ■ 2.75 *<1.0 ♦ 2.0/Xtt**0.5)* <1.0 - DV/DL>**1.5 

4281 C WRITE <6,*> 'Csh -',Csh 

4282 

4283 C** Ftp - SHEAR-CONTROLLED FLOW TWO PHASE HEAT TRANSFER FACTOR 

4284 Ftp ■ <1.0 ♦ Csh/Xtt ♦ 1.0/Xtt**2.0)**0.5 

4285 C WRITE <6,*) 'Ftp -'.Ftp 

4286 

4287 C** Ns • SHEAR -CONTROLLED LIOUID FILM HEAT TRANSFER COEFFICIENT 

4288 Ns ■ Ftp* HI 

4289 C WRITE <6,*) 'Hs «',Hs 

4290 

4291 C** PRESSURE DROP 

4292 C** MOMENTUM PRESSURE DROP <ps1a> 

4293 C** 1 ■ Inlet, e « exit 

4294 C DP* ■ St**2.0/Gc*< «1.0-Y)/Dle*Y/DVe) - «1.0-Y)/DU*Y/DV1> > 

4295 

4296 C** VAPOR REYNOLDS NUMBER 

4297 Rev ■ W«an*Y*Dh/<Ar*VV) 

4298 C WRITE <6,*> 'Rev -'.Rev 

4299 

4300 C** CALCULATE FRICTION FACTORS 

4301 FFl - FF<Dh, ETA, Rel) 

4302 FFv - FF<Dh, ETA, Rev) 

4303 

4304 C** LIOUID PRESSURE DROP <pefa) 

4305 OPl - FFl*<DX/Dh)*Gt**2.0*<1.0-Y)**2.0*<1.0/<2.0*DL*6c)) 

4306 DPI > DPl/<144. 0*3600. 0**2.0) 

4307 

4308 C** VAPOR PRESSURE DROP <psle) 

4309 DPv ■ FFV*<DX/Dh)*Gt**2.0*Y**2.0*<1.0/<2.0*DV*6c)) 

4310 DPv - DPv/<144. 0*3600. 0**2.0) 

4311 

4312 C WRITE <6,*> 'FFl,FFv,DPl,DPv «',FFl,FFv,DPl,DPv 

4313 C** FLF TWO PHASE FRICTION LOSS FACTORS 

4314 C** DPf FRICTION PRESSURE DROP <psia) 

4315 IF <Rel.GT. 2000.0) THEN 

4316 FLF ■ <1.0 ♦ Csh/Xtt ♦ 1.0/Xtt**2.0)**0.5 

4317 DPf • FLF**2.0 * DPI 

4318 ELSE 

4319 FLF » <1.0 ♦ Csh*Xtt ♦ Xtt**2.0)**0.5 

4320 DPf * FLF**2.0 * DPv 

4321 END1F 

4322 DPnet2 « DPf 

4323 RETURN 

4324 END 
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SUBROUTINE CVAP Caviling Option*: /N0/N7/B/NC/ND/NF/H/N I/NK/NL/P/N01/NQ2/NQ3/R/S/NT/V/NX/NZ1 
Source file Listing 

4325 C 

4326 C 

4327 C 

4328 SUBROUTINE CVAP (Man, HM,WM,DX,ETA, Ns, DPnet1,Ar,Gt,V,0h, 

4329 l Rev, HI) 

4330 Gc * 32.1739 

4331 C** CALCULATES VAPOR HEAT TRANSFER l PRESSURE DROP FOR 

4332 CONKM /CNFL/ OL, DV, VF, VG, HF, HG, NFG, SF, SG, 

4333 8 SFG, Cl, Cv, TKl, TKv, Prl, Prv, VI, W 

4534 

4335 C WRITE (6,*) 'DATA FROM CVAP' 

4336 C WRITE (6,*) 'REVIEW CONTENTS OF COMMON' 

4337 C WRITE (6,*) 'DL,DV.VF,VG,HF,HG,HFG,SF,SG,SFG,Cl,Cv,m,TKv,Prl,Prv 

4338 C G.Vl.W «',DL,DV,VF,VG,HF,HG,HFG,SF,SG,SFG,Cl,Cv,TKl.TKv,Prl,Prv,Vl 

4339 C t.Vv 

4340 C** HEAT TRANSFER 

4341 C** FLOW CROSS-SECTIONAL AREA (sq ft) 

4342 Ar ■ HM * IM 

4343 Dh ■ (4.0*Ar)/((2.0*NM)+(2.0*VM)) 

4344 C** Gt - MASS FLUX (Iba/h sq ft) 

4345 C** M - FLOW RATE PER TUBE (lha/h) 

4346 Gt « Unan / Ar 

4347 

4348 C** VAPOR VELOCITY, ft/s 

4349 V b Ct/( DV * 3600.0 ) 

4350 C WRITE (6,*) 'Ar,Dh,Gt,V B',Ar,Dh,Gt,V 

4351 

4352 C** VAPOR REYNOLDS NUMBER 

4353 Rev b WMn*Dh/(Ar*W) 

4354 

4355 C** HI - SHEAR-CONTROLLED VAPOR FILM HEAT TRANSFER COEFFICIENT 

4356 HI b 0.022*(Rev)**0.8 * (Prv)»m.6 * (TKv/Dh) 

4357 Ftp - 1.0 

4358 HS > Ftp* HI 

4359 C WRITE (6,*) 'Rev,Hl,Ftp,Hs B',Rtv,Hl,Ftp.Hs 

4360 C** PRESSURE DROP 

4361 C** MOMENTUM PRESSURE DROP (psia) 

4362 C** 1 b Inlet, e « exit 

4363 C OP* ■ Gt**2.0/Gc*< «1.0-Y)/Dle*Y/DVe) - «1.0-Y)/D11*Y/DV1) ) 

4364 

4365 C** CALCULATE FRICTION FACTORS 

4366 FFv b FF(Dh, ETA, Rev) 

4367 

4368 C** VAPOR PRESSURE DROP (psia) 

4369 DPv b FFv*(DX/Dh)*Gt**2.0*(1 .0/(2.0*DV*Gc)) 

4370 DPv b 0Pv/(144. 0*3600. 0**2.0) 

4371 C WRITE (6,*) 'FFv.DPv b*,FFv,DPv 

4372 C** DPf FRICTION PRESSURE DROP (psia) 

4373 DPf > DPv 

4374 DPnetl ■ DPf 

4375 RETURN 

4376 END 
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Source file Listing 


4377 C 

4378 C 

4379 C 

4380 

4381 C** 

4382 C** 

4383 

4384 

4385 

4386 

4387 


FUNCTION FF(Dh, ETA, RE) 

FF, FRICTION FACTOR 
ETA, SURFACE ROUGHNESS, ft 
FF » 0.25/(ALOG10(ETA/(3.7*Dh) ♦ 5.74/RE**0.9»**2.0 
IF (RE.LE.2000.0) FF * 64.0/RE 
IF ( RE. GT. 2000.0 .AND. RE.LT.4000.0) 
t FF - 0.032*(1.0 - ( RE-2000. 0)/2000.0) ♦ FF*(RE-2000.0)/2000.0 
END 
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SUBROUTINE KPRP CospUIng Option*: /N0/N7/B/NC/ND/NF/N/N I /NK/NL/P/N01/N02/N03/R/S/NT/W/NX/NZ1 
Sourca fila Listing 

4388 C 

4389 C 

4390 C 

4391 SUBROUTINE KPRP(X,P,T, DL, DV, NF, HG, NFC, SF, SG, SFG, VF, VG) 

4392 C UNITE (6,*) 'FROM KPRP, X,P,T X, P, T 

4393 C** REFERENCE: NAVAL RESEARCH LABORATORY (NRL REPORT 6233) 

4394 C** ■ NIGH-TEMPERATURE PROPERTIES OF POTASSIUM" 

4395 DATA XNU, R, TR / 39.0983, 1.986, 460.0 / 

4396 

4397 P* SATURATION PRESSURE (psia), paga 14, aquation 2 

4398 IF(X.EQ.I) Pv 10.0^(6.12758 - 8128.77/T - 0.53299*ALOG10(T» 

4399 

4400 P* LIQUID DENSITY (Iba/cu ft), paga 18, aquation 9 

4401 OL - 52.768 - 7.4975E-3*(T-TR) - 0.5255E-6*(T-TR)*"2.0 

4402 l * 0.0498E-9*(T-TR)""3.0 

4403 

4404 P* LIQUID SPECIFIC VOLUME (cu ft/lba) 

4405 VF ■ 1.0/DL 

4406 

4407 P* CONSTANTS 8 DERIVATIVES OF VIRIAL EQUATION, paga 29, aquation 29 

4408 B ■ -T*10.0**(-3.8787 ♦ 4890.7/T) 

4409 OB ■ B/T*(1.0 - 4890.7*ALOG(10)/T) * 

4410 C « 10.0^(0.5873 ♦ 6385.7/T) 

4411 DC - -6385.7*AL0G(10) * C/T**2.0 

4412 0 ■ -1.0*10**( 1.4595 ♦ 7863.8/T) 

4413 00 ■ -7863.8*ALOG(10) • D/T**2.0 

4414 

4415 C** SOLVE FOR VOLUME VAPOR STATE BY VIRIAL EQUATION, 0.7302*GAS CONSTANT 

4416 VI « 0.7302*T/Pv 

4417 00 10 1-1,100 

4418 FUNC ■ PV*V1/(0.7302*T) - (1.0 ♦ B/V1 ♦ C/V1**2 ♦ D/V1**3) 

4419 SLOPE ■ Pv/(0.7302*T) ♦ (B/V1**2 ♦ 2.0*C/V1**3 ♦ 3.{TD/V1**4) 

4420 V2 ■ VI - FUNC/SLOPE 

4421 IF (ABS(FUNC) .IT. 1.0E-6) GO TO 20 

4422 VI ■ V2 

4423 10 CONTINUE 

4424 20 VG - V2 

4425 

4426 C** ENTHALPY OF VAPORIZATION (Btu/lba) 

4427 NFG ■ (R/0.7302)*PV*(8128.77*ALOG(10.0)/T - 0.53299>*(VG/XMU-VF) 

4428 

4429 C** REFERENCE ENTHALPY (Btu/lbai), page 23, aquation 10 

4430 HGO - 998.95 ♦ 0.127*T ♦ 24836.0*EXP(-39375.0/T) 

4431 DE ■ T/VG*((DB-B/T)4l.0/VG*(DC/2.0-C/T)*1.0/VG**2.0*(00/3.0-D/T)> 

4432 

4433 C** ENTHALPY VAPOR STATE (Btu/lba), page 32, aquation 26 

4434 HG ■ HGO - (R*T/XMW)*DE 

4435 

4436 C** ENTHALPY LIQUID STATE (Btu/lba), page 33 

4437 HF > HG - HFG 

4438 

4439 C** ENTROPY OF VAPORIZATION (Btu/lba R) 

4440 SFG - HFG/T 
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Source file Listing 


4441 

4442 C** REFERENCE ENTROPY STATE (Btu/lbs R), page 23, equation 11 

4443 S60 ■ 0.18075 ♦ 0.127*ALOG(T) ♦ 0.7617*EXP(-31126.0/T) 

4444 DS ■ T/VG*«DB+B/T) ♦ 1.0/(2.0*VG)*(DC+C/T) ♦ 

4445 t 1.0/(3.0*VG**2.0)*(D6H>/T)) - ALOG(PV*V6/<0.7302*T)) 

4446 

4447 C** ENTROPY VAPOR STATE (Btu/lba R), page 32, aquation 27 

4448 S6 ■ SCO ■ <R/XMO*(ALOG<Pv) ♦ DS) 

4449 

4450 C** ENTROPY LIOUID STATE (Btu/lbi R), page 33 

4451 SF ■ SG - SFG 

4452 

4453 C*» VAPOR SPECIFIC VOLUME (cu ft/ 1 be) 

4454 VG > VG/XMU 

4455 

4456 C** VAPOR DENSITY (lba/cu ft) 

4457 DV » 1.0/VG 

4458 

4459 RETURN 

4460 END 

WARNING - REAL VARIABLE (P), a dway arguMnt, is never used, line 4391. 
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SUBROUTINE KTRN Caviling Optior»:/NO/N7/B/NC/ND/NF/H/Nl/NIC/NL/P/NQ1/NQ2^IQ3/R/S/NT/U/NX/NZ1 
Source ffl« Listing 

4461 C 

4462 C 

4463 C 

4464 SUBROUTINE KTRN<X,P,T, Cl, Cv, TKl, TKv, Prl, Prv, VL, Vv) 

4465 C** ■ TRANSPORT PROPERTIES OF POTASSIUM" 

4466 

4467 C*+ LIQUID NEAT CAPACITY (Btu/lbi) 

4468 Cl - 0.22713 - 64.848E-6*T «• Z3.178E-9*T**2.0 
4449 

4470 C** LIQUID VISCOSITY (lb«/ft-h) 

4471 VL « EXP(1353.9/T - 1.9206) 

4472 

4473 C** LIQUID THERMAL CONDUCTIVITY (Btu/h-ft-R) 

4474 TKl - 32.2036 - 7.6789E-3*T 

4475 

4476 C** LIQUID PRANOTL NUMBER 

4477 Prl ■ CL*VL/TKl 

4478 

4479 C** VAPOR CAPACITY (Btil/lbi) 

4480 CALL KPRP<X,P,(T-0.01), DL, DV, NF, Ml, HF6, SF. SC, SF6, VF, VG) 

4481 CALL KPRP(X,P,(T*0.01), DL, DV, HF, N2, NFS, SF. SQ, SFG, VF, VG) 

4482 Cv > (K2-H1)/0.02 

4483 

4484 C** VAPOR VISCOSITY (IbR/ft-h) 

4485 Vv - 1.0282E-2 ♦ 2.5649E-5*T - 3.125E-9*T**2.0 

4486 

4487 C** VAPOR THERMAL CONDUCTIVITY (Btu/h-ft-R) 

4488 TKv - 1.8786E-3 ♦ 4.3527E-6*T - 5.2198E-10»T**2.0 

4489 

4490 C** VAPOR PRANOTL NUMBER 

4491 Prv ■ Cv*Vv/TKv 

4492 

4493 

4494 


RETURN 

END 
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